diff options
| author | dos-reis <gdr@axiomatics.org> | 2012-04-30 05:53:17 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2012-04-30 05:53:17 +0000 |
| commit | 59dfd29ba54016b24ff691969bdd03d1b8a7225d (patch) | |
| tree | d12ec33932b3443d5098e611f1502fe0bdc9e6b6 /src/interp/vmlisp.lisp | |
| parent | 7bd660a8c61540adcd0998122d89b3692cd127f8 (diff) | |
| download | open-axiom-59dfd29ba54016b24ff691969bdd03d1b8a7225d.tar.gz | |
* interp/fortcall.boot: Use copyTree, not COPY-TREE.
* interp/i-intern.boot: Likewise.
* interp/setvars.boot: Likewise.
* interp/i-output.boot: Use abstractChar, not EBCDIC.
* interp/i-util.boot: Likewise.
* interp/vmlisp.lisp (EBCDIC): Remove.
(CALLBELOW): Likewise.
(RE-ENABLE-INT): Likewise.
(QUOREM): Likewise.
Diffstat (limited to 'src/interp/vmlisp.lisp')
| -rw-r--r-- | src/interp/vmlisp.lisp | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/src/interp/vmlisp.lisp b/src/interp/vmlisp.lisp index 059994da..017b42ed 100644 --- a/src/interp/vmlisp.lisp +++ b/src/interp/vmlisp.lisp @@ -1293,10 +1293,6 @@ (defun $screensize () '(24 80)) ; You tell me!! -; 97.0 Stuff In The Manual But Wierdly Documented - -(defun EBCDIC (x) (code-char x)) - ;; This isn't really compatible but is as close as you can get in common lisp ;; In place of ((one-of 1 2 3) l) you should use ;; (funcall (one-of 1 2 3) l) @@ -1385,8 +1381,6 @@ (defun LAM\,FILEACTQ (name form) (if *FILEACTQ-APPLY* (FUNCALL *FILEACTQ-APPLY* name form))) -(defun CALLBELOW (&rest junk) junk) ; to invoke system dependent code? - (defun PLACEP (item) (eq item *read-place-holder*)) (defun VMREAD (&optional (st |$InputStream|) (eofval *read-place-holder*)) (read st nil eofval)) @@ -1426,11 +1420,3 @@ (function-lambda-expression func) (declare (ignore l c)) n))) - - -(defun RE-ENABLE-INT (number-of-handler) number-of-handler) - - -(defun QUOREM (i j r) ; never used, refed in parini.boot - (multiple-value-bind (x y) (truncate i j) - (rplaca (the cons r) x) (rplacd (the cons r) y))) |