aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp')
-rw-r--r--src/interp/ChangeLog4
-rw-r--r--src/interp/vmlisp.lisp.pamphlet7
2 files changed, 11 insertions, 0 deletions
diff --git a/src/interp/ChangeLog b/src/interp/ChangeLog
index 23ba2ee6..15318499 100644
--- a/src/interp/ChangeLog
+++ b/src/interp/ChangeLog
@@ -1,5 +1,9 @@
2007-09-12 Gabriel Dos Reis <gdr@cs.tamu.edu>
+ * vmlisp.lisp.pamphlet (BPINAME): Define for SBCL.
+
+2007-09-12 Gabriel Dos Reis <gdr@cs.tamu.edu>
+
* ggreater.lisp: New.
* ggreater.lisp.pamphlet: Move content to ggreater.lisp. Remove.
diff --git a/src/interp/vmlisp.lisp.pamphlet b/src/interp/vmlisp.lisp.pamphlet
index 13dd9488..4bc1b1ac 100644
--- a/src/interp/vmlisp.lisp.pamphlet
+++ b/src/interp/vmlisp.lisp.pamphlet
@@ -2090,6 +2090,13 @@ can be restored.
(intern (symbol-name (symbol-function x)) "BOOT")
nil))
+#+:SBCL
+(defun BPINAME (x)
+ (multiple-value-bind (l c n)
+ (function-lambda-expression x)
+ (declare (ignore l c))
+ n))
+
(defun LISTOFQUOTES (bpi)
(declare (ignore bpi))
())