From 127c6441bd078d9850bdfaa6680ddbcfaa0a0b00 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Tue, 29 May 1990 16:53:26 +0000 Subject: [PATCH] Flushed commented-out PUTF macro. Changed %PRIMITIVE PUTF to be %PUTF so that we can interpret SETF GETF. --- code/macros.lisp | 26 +------------------------- 1 file changed, 1 insertion(+), 25 deletions(-) diff --git a/code/macros.lisp b/code/macros.lisp index 084dc43a4..d59606850 100644 --- a/code/macros.lisp +++ b/code/macros.lisp @@ -846,30 +846,6 @@ (define-modify-macro decf (&optional (delta 1)) - "The first argument is some location holding a number. This number is decremented by the second argument, DELTA, which defaults to 1.") -#| -(defmacro putf (place indicator value &environment env) - "Place may be any place expression acceptable to SETF, and is expected - to hold a property list or (). This list is destructively altered so - that (GETF place indicator) will find the specified newvalue. Returns - the new value." - (multiple-value-bind (dummies vals newval setter getter) - (foo-get-setf-method place env) - (do* ((d dummies (cdr d)) - (v vals (cdr v)) - (let-list nil) - (ind-temp (gensym)) - (val-temp (gensym))) - ((null d) - (push (list (car newval) getter) let-list) - (push (list ind-temp indicator) let-list) - (push (list val-temp value) let-list) - `(let* ,(nreverse let-list) - (setq ,(car newval) - (%primitive putf ,(car newval) ,ind-temp ,val-temp)) - ,setter - ,val-temp)) - (push (list (car d) (car v)) let-list)))) -|# (defmacro remf (place indicator &environment env) @@ -975,7 +951,7 @@ `(,@values ,get ,prop ,@(if default `(,default))) `(,newval) `(progn (setq ,(car stores) - (%primitive putf ,(car stores) ,ptemp ,newval)) + (%putf ,(car stores) ,ptemp ,newval)) ,set ,newval) `(getf ,(car stores) ,ptemp ,@(if default `(,def-temp))))))) -- GitLab