Function (#')

diff --git a/lispstrack.lisp b/lispstrack.lisp
index 386caed..5bfd7eb 100644 (file)
--- a/lispstrack.lisp
+++ b/lispstrack.lisp
@@ -147,6 +147,13 @@
          (ls-compile pred env fenv)
          (ls-compile-block body env fenv)))
 
+(define-compilation function (x)
+  (cond
+    ((and (listp x) (eq (car x) 'lambda))
+     (ls-compile x env fenv))
+    ((symbolp x)
+     (lookup-function x fenv))))
+
 (defmacro eval-when-compile (&body body)
   `(eval-when (:compile-toplevel :execute)
      ,@body))

diff --git a/test.lisp b/test.lisp
index b5f0437..3a990fe 100644 (file)
--- a/test.lisp
+++ b/test.lisp
@@ -21,6 +21,8 @@
 
 (debug ((lambda (x) x) 9999))
 
+(debug #'f)
+
 ;;; Macros
 (debug "---MACROS---")