Changeset 4162

Timestamp:

10/01/03 21:29:17 (19 years ago)

Author:

piso

Message:

Work in progress.

File:

• trunk/j/src/org/armedbear/lisp/setf.lisp (modified) (3 diffs)

trunk/j/src/org/armedbear/lisp/setf.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: setf.lisp,v 1.30 2003-10-01 17:45:35 piso Exp $
+;;; $Id: setf.lisp,v 1.31 2003-10-01 21:29:17 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -117 +117 @@
          (symbol-function name))
         ((and (consp name) (eq (car name) 'setf))
-         (or (get 'setf-inverse (cadr name)) (error 'undefined-function)))
+         (or (get 'setf-function (cadr name)) (error 'undefined-function)))
         (t (error 'type-error))))
 
@@ -124 +124 @@
          (fset name function))
         ((and (consp name) (eq (car name) 'setf))
-         (%put (cadr name) 'setf-inverse function))
+         (%put (cadr name) 'setf-function function))
         (t (error 'type-error))))