test.lisp 465 Bytes
Newer Older
1
;;;; Example lisp code.
2
(in-package :asdf-test)
3

4 5 6 7 8 9 10
(eval-when (:compile-toplevel)
  (format t "This is compile-time and the *read-base* is ~D~%" *read-base*))
(eval-when (:load-toplevel)
  (format t "This is load-time and the *read-base* is ~D~%" *read-base*))
(eval-when (:execute)
  (format t "This is execute-time and *read-base* is ~D~%" *read-base*))

11 12
(defun tst (x)
  (1+ x))
13 14 15

(defun add10 (x)
  (+ x 10))
16 17

(format t "(add10 0) is (in decimal) ~D~%" (add10 0))