3 ;;; The order of the forms must not change, as the order is checked in
4 ;;; `test-driver.lisp'. Thus do not alter this file unless you edit
5 ;;; test-driver.lisp to match.
8 (declaim (optimize (debug 3)))
11 (defun one (a b c
) (+ a b c
))
13 (defgeneric two
(a b
))
14 (defmethod two ((a number
) b
)
17 (defstruct three four five
)
19 (with-compilation-unit (:source-plist
(list :test-inner
"IN"))
20 (eval '(defun four () 4)))
31 (define-condition b
(warning) (a))
35 (defstruct (d (:type list
)) e f
)
37 (defpackage e
(:use
:cl
))
39 (define-symbol-macro f
'e
)
41 (deftype g
() 'fixnum
)
48 (defmethod j ((b null
))
54 (define-compiler-macro m
(a)
58 (defsetf n
(a) (store)
59 (format t
"~a ~a~%" a store
))
64 (defmethod (setf p
) (x y
)
65 (format t
"~a ~a~%" x y
))
67 (define-modify-macro q
(x) logand
)
69 (define-method-combination r nil
)
71 (define-setf-expander s
(a b
)
72 (format t
"~a ~a~%" a b
))
74 (eval-when (:compile-toplevel
)
75 (defun compile-time-too-fun ()
78 (sb-ext:defglobal
**global
** 'value
)