aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2007-09-12 22:15:20 +0000
committerdos-reis <gdr@axiomatics.org>2007-09-12 22:15:20 +0000
commitedc726b51cc48c0a1f9241fa159f85d512e98968 (patch)
tree4efe5cb0f811dcd94108028d0e027fa60afb2cee
parenta81ae8dcf23d98ec55c975f8819dad4e32f4f806 (diff)
downloadopen-axiom-edc726b51cc48c0a1f9241fa159f85d512e98968.tar.gz
* vmlisp.lisp.pamphlet (BPINAME): Define for SBCL.
-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))
())