diff options
Diffstat (limited to 'src/interp/vmlisp.lisp')
-rw-r--r-- | src/interp/vmlisp.lisp | 18 |
1 files changed, 7 insertions, 11 deletions
diff --git a/src/interp/vmlisp.lisp b/src/interp/vmlisp.lisp index fe3bb374..eced41c2 100644 --- a/src/interp/vmlisp.lisp +++ b/src/interp/vmlisp.lisp @@ -31,7 +31,7 @@ ;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS ;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. -(IMPORT-MODULE "boot-pkg") +(IMPORT-MODULE "types") ; VM LISP EMULATION PACKAGE ; Lars Ericson, Barry Trager, Martial Schor, tim daly, LVMCL, et al @@ -552,12 +552,6 @@ ;; defuns -(eval-when - #+:common-lisp (:compile-toplevel :load-toplevel :execute) - #-:common-lisp (compile load eval) - (defun define-function (f v) - (setf (symbol-function f) v))) - (define-function 'tempus-fugit #'get-internal-run-time) (defun $TOTAL-ELAPSED-TIME () @@ -1867,10 +1861,12 @@ #+(or :SBCL :clisp) (defun BPINAME (x) - (multiple-value-bind (l c n) - (function-lambda-expression x) - (declare (ignore l c)) - n)) + (if (symbolp x) + x + (multiple-value-bind (l c n) + (function-lambda-expression x) + (declare (ignore l c)) + n))) (defun LISTOFQUOTES (bpi) (declare (ignore bpi)) |