diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-15 19:30:34 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-15 19:30:34 +0000 |
| commit | 0d8fcdd4995bba86701b8184b288dd549a5336fa (patch) | |
| tree | 81e8f7491effa5959cd43ffdd9d9b94cef9d3f81 /src/interp/vmlisp.lisp | |
| parent | 8f2bad3b8cea97189a9e842ed0f78559aa4be795 (diff) | |
| download | open-axiom-0d8fcdd4995bba86701b8184b288dd549a5336fa.tar.gz | |
* interp/vmlisp.lisp (SETELT): Remove.
* interp/br-data.boot: Remove use of SETELT.
* interp/br-saturn.boot: Likewise.
* interp/br-util.boot: Likewise.
* interp/functor.boot: Likewise.
* interp/ht-util.boot: Likewise.
* interp/interop.boot: Likewise.
* interp/nruncomp.boot: Likewise.
Diffstat (limited to 'src/interp/vmlisp.lisp')
| -rw-r--r-- | src/interp/vmlisp.lisp | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/src/interp/vmlisp.lisp b/src/interp/vmlisp.lisp index ae8b1df3..f14d4898 100644 --- a/src/interp/vmlisp.lisp +++ b/src/interp/vmlisp.lisp @@ -446,9 +446,6 @@ (setq ,id ,item) (lam\,fileactq ',id (list 'setq ',id (list 'quote ,id))))) -(defmacro setelt (vec ind val) - `(setf (elt ,vec ,ind) ,val)) - (defmacro setqp (&whole form pattern exp) `(,(dcqexp pattern '=) ,exp)) @@ -786,10 +783,6 @@ (defun QSREMAINDER (a b) (the fixnum (rem (the fixnum a) (the fixnum b)))) -;(defun IFCAR (x) (if (consp x) (car (the cons x)))) - -;(defun IFCDR (x) (if (consp x) (cdr (the cons x)))) - ; 13.3 Updating @@ -971,14 +964,6 @@ ; 17.3 Searching -;;- (defun strpos (what in start dontcare) -;;- (setq what (string what) in (string in)) -;;- (if dontcare (progn (setq dontcare (character dontcare)) -;;- (search what in :start2 start -;;- :test #'(lambda (x y) (or (eql x dontcare) -;;- (eql x y))))) -;;- (search what in :start2 start))) - (defun strpos (what in start dontcare) (setq what (string what) in (string in)) (if dontcare (progn (setq dontcare (character dontcare)) |