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

Timestamp:

09/22/03 17:46:26 (20 years ago)

Author:

piso

Message:

PARSE-1-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.19 2003-09-20 18:22:10 piso Exp $
+;;; $Id: defstruct.lisp,v 1.20 2003-09-22 17:46:26 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -88 +88 @@
                               (make-symbol (string (cadr option))))))
     (:constructor
-     (if (cdr option)
-         (if (null (cadr option))
-             (setf *ds-constructor* nil)
-             (setf *ds-constructor* (symbol-name (cadr option))))
-         (setf *ds-constructor* nil)))))
+     (when (= (length (cdr option)) 1)
+       (if (null (cadr option))
+           (setf *ds-constructor* nil)
+           (setf *ds-constructor* (symbol-name (cadr option))))))))
 
 (defun parse-name-and-options (name-and-options)