diff options
author | dos-reis <gdr@axiomatics.org> | 2008-03-25 04:07:32 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-03-25 04:07:32 +0000 |
commit | daed04c57b8ff8c3be53a5a183635c5687ab7bf6 (patch) | |
tree | be75f9d45dbdb2004578ad6b3c5c25b7e22803e6 /src/interp/vmlisp.lisp | |
parent | 55893dcd3118428f046d5f539d80e9aa5345b885 (diff) | |
download | open-axiom-daed04c57b8ff8c3be53a5a183635c5687ab7bf6.tar.gz |
* interp/vmlisp.lisp (DEFINE-FUNCTION): Move boot-pkg.lisp.
(BPINAME): Tidy.
* interp/slam.boot (reportFunctionCompilation): Tidy.
* interp/daase.lisp: Don't use anachronistic SET.
* interp/debug.lisp: Likewise.
* interp/br-saturn.boot: Substitute GENSYM for GENTEMP.
* interp/fortcall.boot: Likewise.
* interp/ht-util.boot: Likewise.
* interp/pf2sex.boot: Likewise.
* interp/server.boot: Likewise.
* interp/buildom.boot (UnionEqual): Tidy.
(coerceUn2E): Likewise.
* interp/boot-pkg.lisp (define-function): Define here.
* interp/Makefile.pamphlet (diagnostics.$(FASLEXT)): Tidy.
(hash.$(FASLEXT)): Likewise.
(vmlisp.$(FASLEXT)): Likewise.
* interp/diagnostics.boot: Import "types".
* interp/hash.lisp: Import "types" instead of "vmlisp".
* interp/i-output.boot ($algebraOutput): Move to sys-globals.boot.
(ERROROUTSTREAM): Likewise.
(ERRORINSTREAM): Likewise.
* interp/macros.lisp ($algebraOutputStream): Don't set here.
* interp/patches.lisp ($algebraOutputStream): Don't set here.
($texOutputStream): Likewise.
($fortranOutputStream): Likewise.
($texOutputStream): Likewise.
($formulaOutputStream): Likewise.
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)) |