fork download
copy 
  1. ;;;;
  2. ;;;; First approach
  3. ;;;;
  4.  
  5. (shadowing-import(defmacro :dotimes (&rest r) '(loop)))
  6. (print (macroexpand '(dotimes(i 8))))
  7.  
  8. ;; Revert import
  9. (shadowing-import 'cl:dotimes)
  10.  
  11. ;;;;
  12. ;;;; Second approach
  13. ;;;;
  14.  
  15. (set-macro-character #\8 (lambda (&rest r) '(loop)))
  16. (print '(dotimes (i 8)))
  17.  
  18. ;; Revert readtable modification (setting to NIL gives an error)
  19. (set-macro-character #\8 (lambda (stream char) (read stream T NIL T)) t)
Success #stdin #stdout 0s 535040KB
comments ()
stdin
copy 
Standard input is empty
stdout
copy 
(BLOCK NIL (TAGBODY #:LOOP-3210 (GO #:LOOP-3210))) 
(DOTIMES (I (LOOP)))
https://ideone.com/sR3AiU
language:
Common Lisp (clisp 2.49.92)
created:
8 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!