Changeset 4204 for trunk/j/src/org/armedbear/lisp/defstruct.lisp

Timestamp:

10/05/03 18:37:59 (19 years ago)

Author:

piso

Message:

:COPIER option.

File:

• trunk/j/src/org/armedbear/lisp/defstruct.lisp (modified) (2 diffs)

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

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: defstruct.lisp,v 1.26 2003-10-05 18:27:56 piso Exp $
+;;; $Id: defstruct.lisp,v 1.27 2003-10-05 18:37:59 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -119 +119 @@
             (numargs (length args)))
        (when (= numargs 1)
-          (setf *ds-copier* (cadr args)))))
+          (setf *ds-copier* (car args)))))
     (:predicate
      (when (= (length option) 2)