Name: Anonymous 2010-05-19 15:40
I've been studying programming for 3 fucking years and I STILL don't know what 'foobar' is. FUCK.
car'', ``cdr'', ``cadr'', ``cdaddr'', &c. for metasyntactic variables.
;; Define an empty package which contains no symbols, nor does it import anything
(defpackage emptyness)
;; Set the current *package* for compile, load, execute-times.
(in-package #:emptyness)
(cl:dotimes (i 5)
(cl:princ i)) ;=> prints 01234
(COMMON-LISP:DO ((I 0 (COMMON-LISP:1+ I)))
((COMMON-LISP:>= I 5) COMMON-LISP:NIL)
(COMMON-LISP:DECLARE (COMMON-LISP:TYPE COMMON-LISP:UNSIGNED-BYTE I))
(COMMON-LISP:PRINC I))
; which expands to
(COMMON-LISP:BLOCK COMMON-LISP:NIL
(COMMON-LISP:LET ((I 0))
(COMMON-LISP:DECLARE (COMMON-LISP:TYPE COMMON-LISP:UNSIGNED-BYTE I))
(COMMON-LISP:TAGBODY
(COMMON-LISP:GO #:G893)
#:G892
(COMMON-LISP:TAGBODY (COMMON-LISP:PRINC I))
(COMMON-LISP:PSETQ I (COMMON-LISP:1+ I))
#:G893
(COMMON-LISP:UNLESS (COMMON-LISP:>= I 5) (COMMON-LISP:GO #:G892))
(COMMON-LISP:RETURN-FROM COMMON-LISP:NIL
(COMMON-LISP:PROGN COMMON-LISP:NIL)))))
;; which, after more iteration, finally expands to
(COMMON-LISP:BLOCK COMMON-LISP:NIL
(COMMON-LISP:LET ((I 0))
(COMMON-LISP:DECLARE (COMMON-LISP:TYPE COMMON-LISP:UNSIGNED-BYTE I))
(COMMON-LISP:TAGBODY
(COMMON-LISP:GO #:G893)
#:G892
(COMMON-LISP:TAGBODY (COMMON-LISP:PRINC I))
(COMMON-LISP:LET* ()
(COMMON-LISP:LET ((#:NEW894 (COMMON-LISP:1+ I)))
(COMMON-LISP:PROGN (COMMON-LISP:SETQ I #:NEW894) COMMON-LISP:NIL)))
#:G893
(COMMON-LISP:IF (COMMON-LISP:>= I 5) COMMON-LISP:NIL
(COMMON-LISP:PROGN (COMMON-LISP:GO #:G892)))
(COMMON-LISP:RETURN-FROM COMMON-LISP:NIL
(COMMON-LISP:PROGN COMMON-LISP:NIL)))))