- (/noshow "setting up" kernel-bic-entry)
- (let* ((name (car kernel-bic-entry))
- (class (find-classoid name))
- (prototype-form
- (getf (cdr kernel-bic-entry) :prototype-form)))
- (/noshow name class)
- `(,name
- ,(mapcar #'classoid-name (direct-supers class))
- ,(mapcar #'classoid-name (direct-subs class))
- ,(map 'list
- (lambda (x)
- (classoid-name
- (layout-classoid x)))
- (reverse
- (layout-inherits
- (classoid-layout class))))
- ,(if prototype-form
- (eval prototype-form)
- ;; This is the default prototype value which
- ;; was used, without explanation, by the CMU CL
- ;; code we're derived from. Evidently it's safe
- ;; in all relevant cases.
- 42))))
- (remove-if (lambda (kernel-bic-entry)
- (member (first kernel-bic-entry)
- ;; I'm not sure why these are removed from
- ;; the list, but that's what the original
- ;; CMU CL code did. -- WHN 20000715
- '(t instance
- funcallable-instance
- function stream
- file-stream string-stream)))
- sb-kernel::*built-in-classes*))))
+ (/noshow "setting up" kernel-bic-entry)
+ (let* ((name (car kernel-bic-entry))
+ (class (find-classoid name))
+ (prototype-form
+ (getf (cdr kernel-bic-entry) :prototype-form)))
+ (/noshow name class)
+ `(,name
+ ,(mapcar #'classoid-name (direct-supers class))
+ ,(mapcar #'classoid-name (direct-subs class))
+ ,(map 'list
+ (lambda (x)
+ (classoid-name
+ (layout-classoid x)))
+ (reverse
+ (layout-inherits
+ (classoid-layout class))))
+ ,(if prototype-form
+ (eval prototype-form)
+ ;; This is the default prototype value which
+ ;; was used, without explanation, by the CMU CL
+ ;; code we're derived from. Evidently it's safe
+ ;; in all relevant cases.
+ 42))))
+ (remove-if (lambda (kernel-bic-entry)
+ (member (first kernel-bic-entry)
+ ;; I'm not sure why these are removed from
+ ;; the list, but that's what the original
+ ;; CMU CL code did. -- WHN 20000715
+ '(t instance
+ funcallable-instance
+ function stream
+ file-stream string-stream)))
+ sb-kernel::*built-in-classes*))))