From f18b4ce1c1f49b2267c96e15b777cd416328c965 Mon Sep 17 00:00:00 2001 From: David Vazquez Date: Sun, 16 Dec 2012 04:14:02 +0000 Subject: [PATCH] Function (#') --- lispstrack.lisp | 7 +++++++ test.lisp | 2 ++ 2 files changed, 9 insertions(+) diff --git a/lispstrack.lisp b/lispstrack.lisp index 386caed..5bfd7eb 100644 --- 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 --- a/test.lisp +++ b/test.lisp @@ -21,6 +21,8 @@ (debug ((lambda (x) x) 9999)) +(debug #'f) + ;;; Macros (debug "---MACROS---") -- 1.7.10.4