Changeset 4008


Ignore:
Timestamp:
09/22/03 17:46:26 (19 years ago)
Author:
piso
Message:

PARSE-1-OPTION

File:
1 edited

Legend:

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

    r3935 r4008  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: defstruct.lisp,v 1.19 2003-09-20 18:22:10 piso Exp $
     4;;; $Id: defstruct.lisp,v 1.20 2003-09-22 17:46:26 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    8888                              (make-symbol (string (cadr option))))))
    8989    (:constructor
    90      (if (cdr option)
    91          (if (null (cadr option))
    92              (setf *ds-constructor* nil)
    93              (setf *ds-constructor* (symbol-name (cadr option))))
    94          (setf *ds-constructor* nil)))))
     90     (when (= (length (cdr option)) 1)
     91       (if (null (cadr option))
     92           (setf *ds-constructor* nil)
     93           (setf *ds-constructor* (symbol-name (cadr option))))))))
    9594
    9695(defun parse-name-and-options (name-and-options)
Note: See TracChangeset for help on using the changeset viewer.