Ignore:
Timestamp:
01/16/10 20:13:42 (11 years ago)
Author:
ehuelsmann
Message:

Add internal DEFSTRUCT administration to the STREAM and SYSTEM-STREAM types.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/boot.lisp

    r12276 r12380  
    172172(load-system-file "require")
    173173(load-system-file "defstruct")
     174
     175;; The actual stream and system-stream classes
     176;; are created in BuiltInClass.java, however, that code does not
     177;; set up the structure internals correctly: we wouldn't be able
     178;; to :include the structure classes. Fix that here.
     179(defstruct (stream (:constructor nil)
     180                   (:copier nil)
     181                   (:predicate nil)))  ;; Predicate STREAMP defined elsewhere
     182(defstruct (system-stream (:include stream)
     183                          (:constructor nil)
     184                          (:copier nil)))
     185
    174186(load-system-file "restart")
    175187(load-system-file "late-setf")
Note: See TracChangeset for help on using the changeset viewer.