Changeset 5866


Ignore:
Timestamp:
02/18/04 15:31:37 (17 years ago)
Author:
piso
Message:

Minor cleanup.

File:
1 edited

Legend:

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

    r5711 r5866  
    22;;;
    33;;; Copyright (C) 2003-2004 Peter Graves
    4 ;;; $Id: defstruct.lisp,v 1.44 2004-02-07 19:52:48 piso Exp $
     4;;; $Id: defstruct.lisp,v 1.45 2004-02-18 15:31:37 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    384384           (setf *dd-predicate* (symbol-name (cadr option))))))
    385385    (:type
    386      (setf *dd-type* (cadr option)))
    387     (t
    388      (format t "unrecognized DEFSTRUCT option: ~S~%" (car option)))))
     386     (setf *dd-type* (cadr option)))))
    389387
    390388(defun parse-name-and-options (name-and-options)
     
    403401             (parse-1-option (list option)))
    404402            (t
    405              (error "unrecognized DEFSTRUCT option: ~S" option))))))
     403             (error "Unrecognized DEFSTRUCT option: ~S." option))))))
    406404
    407405(defmacro defstruct (name-and-options &rest slots)
Note: See TracChangeset for help on using the changeset viewer.