diff options
Diffstat (limited to 'src/interp/macros.lisp')
| -rw-r--r-- | src/interp/macros.lisp | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/src/interp/macros.lisp b/src/interp/macros.lisp index a55884b6..04cc575f 100644 --- a/src/interp/macros.lisp +++ b/src/interp/macros.lisp @@ -536,14 +536,6 @@ terminals and empty or at-end files. In Common Lisp, we must assume record size (defun DROPTRAILINGBLANKS (LINE) (string-right-trim " " LINE)) -(defun print-and-eval-defun (name body) - (eval body) - (print-defun name body) - ;; (set name (symbol-function name)) ;; this should go away - ) - -(defun eval-defun (name body) (eval (macroexpandall body))) - ; This function was modified by Greg Vanuxem on March 31, 2005 ; to handle the special case of #'(lambda ..... which expands ; into (function (lambda ..... @@ -591,9 +583,6 @@ terminals and empty or at-end files. In Common Lisp, we must assume record size (mapcar #'macroexpandall sexpr)))) -(defun compile-defun (name body) (eval body) (compile name)) - - (defun |deleteWOC| (item list) (delete item list :test #'equal)) ;;---- Added by WFS. |