1
(format t "dick!")

1
(format t "suck my dick")

1
(setq a (list 1 2 3))

1
(setq 'a (list 1 2 3))

1
2
3
4
5
6
(progn (defun ! (n)
  (if (<= n 2)
    n
    (* n (! (- n 1)))))
 
(! 30))

1
2
3
4
5
6
(defun ! (n)
  (if (<= n 2)
    n
    (* n (! (- n 1)))))
 
(! 30)

1
2
3
4
(defun ! (n)
  (if (<= n 2)
    n
    (* n (! (- n 1)))))

1
2
3
4
5
6
7
8
9
; Expression evalutors - Can you evaluate this relation?
; ------------------------------
; The Little Lisper 3rd Edition
; Chapter 8
; Exercise 6
; Common Lisp
; http://twitter.com/thelittlelisper
; http://thelittlelisper.blogspot.com/2010/06/little-lisper-chapter-8-friends-and.html
; http://thelittlelisper.blogspot.com/2010/06/little-lisper.html
 ...

1
2
3
4
5
6
7
8
9
; Expression evaluators - Compose function f and g?
; ------------------------------
; The Little Lisper 3rd Edition
; Chapter 8
; Exercise 5
; Common Lisp
; http://twitter.com/thelittlelisper
; http://thelittlelisper.blogspot.com/2010/06/little-lisper-chapter-8-friends-and.html
; http://thelittlelisper.blogspot.com/2010/06/little-lisper.html
 ...

1
2
DEFINE (RECUR) (RECUR)
RECUR

1
2
3
4
5
6
7
8
9
; Expression evaluators - Compose function f and g?
; ------------------------------
; The Little Lisper 3rd Edition
; Chapter 8
; Exercise 5
; Common Lisp
; http://twitter.com/thelittlelisper
; http://thelittlelisper.blogspot.com/2010/06/little-lisper-chapter-8-friends-and.html
; http://thelittlelisper.blogspot.com/2010/06/little-lisper.html
 ...

1
2
3
4
5
6
7
8
9
; Expression evaluators - Is this symmetric?
; ------------------------------
; The Little Lisper 3rd Edition
; Chapter 8
; Exercise 3
; Common Lisp
; http://twitter.com/thelittlelisper
; http://thelittlelisper.blogspot.com/2010/06/little-lisper-chapter-8-friends-and.html
; http://thelittlelisper.blogspot.com/2010/06/little-lisper.html
 ...

1
2
(loop for i from 0 upto 10
do (format t "test ~a~%" i))

1
(format t "hello world")

1
2
3
4
5
6
7
8
9
(defmacro bruteforce-field ((field (width height) valid-checker) &body body)
  (with-gensyms (bruteforce r c)
    `(let ((,field (make-array '(,height ,width) :initial-element 0)))
       (labels ((,bruteforce (,r ,c)
                  (macrolet ((next () `(,',bruteforce (+ ,',r (truncate (/ (1+ ,',c) ,',width))) (mod (1+ ,',c) ,',width)))
                             (try (value)
                               `(progn (setf (aref ,',field ,',r ,',c) ,value)
                                       (when (and (,',valid-checker ,',field ,',r ,',c ,value)
                                                  (next))
 ...

1
2
3
4
5
6
7
8
9
; Expression evalutors - What is value of f at x?
; ------------------------------
; The Little Lisper 3rd Edition
; Chapter 8
; Exercise 4
; Common Lisp
; http://twitter.com/thelittlelisper
; http://thelittlelisper.blogspot.com/2010/06/little-lisper-chapter-8-friends-and.html
; http://thelittlelisper.blogspot.com/2010/06/little-lisper.html
 ...

1
2
3
4
5
6
7
8
9
; Expression evaluators - Is this symmetric?
; ------------------------------
; The Little Lisper 3rd Edition
; Chapter 8
; Exercise 3
; Common Lisp
; http://twitter.com/thelittlelisper
; http://thelittlelisper.blogspot.com/2010/06/little-lisper-chapter-8-friends-and.html
; http://thelittlelisper.blogspot.com/2010/06/little-lisper.html
 ...

1
2
3
4
5
6
7
(setf var0 1)
(defun f0 () (print var0))
(let ((var0 2))
(declare (special var0))
(f0))
 
(print var0)

1
2
3
(setf var0 1)
(defun f0 () (print var0))
(let ((var0 2)) (f0))

1
car(post no bills)

1
2
3
4
5
6
7
8
9
; Expression evaluators - Is this reflexive?
; ------------------------------
; The Little Lisper 3rd Edition
; Chapter 8
; Exercise 2
; Common Lisp
; http://twitter.com/thelittlelisper
; http://thelittlelisper.blogspot.com/2010/06/little-lisper-chapter-8-friends-and.html
; http://thelittlelisper.blogspot.com/2010/06/little-lisper.html
 ...

1
2
3
4
5
6
7
8
9
; Expression evaluators - Is this an identity relation?
; ------------------------------
; The Little Lisper 3rd Edition
; Chapter 8
; Exercise 1
; Common Lisp
; http://twitter.com/thelittlelisper
; http://thelittlelisper.blogspot.com/2010/06/little-lisper-chapter-8-friends-and.html
; http://thelittlelisper.blogspot.com/2010/06/little-lisper.html
 ...

1
2
3
4
(loop 
        for line = (read-line *standard-input* nil nil) 
        while (not (equal line "42")) 
        do (format t "~A~%" line))

1
(format t "~@R" 4324234234234234234785)

1
(format t "~:@R" 4785)

1
(format t "~:@R" 234872348723049809230)

1
(print (+ 1 2))

1
(+ 1 2)

1
2
3
4
(loop 
        for line = (read-line *standard-input* nil nil) 
        while (not (equal line "42")) 
        do (format t "~A~%" line))

1
(print *features*)