/[cmucl]/src/pcl/std-class.lisp
ViewVC logotype

Diff of /src/pcl/std-class.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.29 by pmai, Wed Jun 5 23:00:12 2002 UTC revision 1.30 by pmai, Wed Jun 5 23:17:47 2002 UTC
# Line 514  Line 514 
514               (defstruct `(defstruct (,name               (defstruct `(defstruct (,name
515                                        ,@(when include                                        ,@(when include
516                                            `((:include ,(class-name include))))                                            `((:include ,(class-name include))))
                                       (:print-function print-std-instance)  
517                                        (:predicate nil)                                        (:predicate nil)
518                                        (:conc-name ,conc-name)                                        (:conc-name ,conc-name)
519                                        (:constructor ,constructor ()))                                        (:constructor ,constructor ()))

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30

  ViewVC Help
Powered by ViewVC 1.1.5