;;;
;;; Also, something along these lines can remove the special case in
;;; EMIT-MAKE-LOAD-FORM in src/compiler/main.lisp.
;;;
;;; Also, something along these lines can remove the special case in
;;; EMIT-MAKE-LOAD-FORM in src/compiler/main.lisp.
(declare (ignore environment))
(if (member :sb-xc-host *features*)
;; we're still building the cross-compiler, so use the host's
(declare (ignore environment))
(if (member :sb-xc-host *features*)
;; we're still building the cross-compiler, so use the host's
;; target's MAKE-LOAD-FORM-SAVING-SLOTS; it would be nice to
;; share code with that if possible. -- CSR, 2002-05-30
(if slot-names
;; target's MAKE-LOAD-FORM-SAVING-SLOTS; it would be nice to
;; share code with that if possible. -- CSR, 2002-05-30
(if slot-names