From edc726b51cc48c0a1f9241fa159f85d512e98968 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Wed, 12 Sep 2007 22:15:20 +0000
Subject: 	* vmlisp.lisp.pamphlet (BPINAME): Define for SBCL.

---
 src/interp/vmlisp.lisp.pamphlet | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'src/interp/vmlisp.lisp.pamphlet')

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))
   ())
-- 
cgit v1.2.3