Ignore:
Timestamp:
10/05/03 18:37:59 (19 years ago)
Author:
piso
Message:

:COPIER option.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/defstruct.lisp

    r4203 r4204  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: defstruct.lisp,v 1.26 2003-10-05 18:27:56 piso Exp $
     4;;; $Id: defstruct.lisp,v 1.27 2003-10-05 18:37:59 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    119119            (numargs (length args)))
    120120       (when (= numargs 1)
    121           (setf *ds-copier* (cadr args)))))
     121          (setf *ds-copier* (car args)))))
    122122    (:predicate
    123123     (when (= (length option) 2)
Note: See TracChangeset for help on using the changeset viewer.