contrib/sb-introspect/test.lisp

   1 ;; Do not alter this file unless you edit test-driver.lisp to match
   2 (declaim (optimize (debug 3)))
   3 (in-package :cl-user)
   4
   5 (defun one (a b c) (+ a b c))
   6
   7 (defgeneric two (a b))
   8 (defmethod two ((a number) b)
   9   (* 2 a))
  10
  11 (defstruct three four five)
  12
  13 (with-compilation-unit (:source-plist (list :test-inner "IN"))
  14   (eval '(defun four () 4)))