(eval-when (#-sb-xc :compile-toplevel :load-toplevel :execute)
(defun symbolicate (&rest things)
(let ((name (case (length things)
(eval-when (#-sb-xc :compile-toplevel :load-toplevel :execute)
(defun symbolicate (&rest things)
(let ((name (case (length things)
;; Well, this is called early in cold-init, before
;; the type system is set up; however, now that we
;; check for bad lengths, the type system is needed
;; for calls to CONCATENATE. So we need to make sure
;; that the calls are transformed away:
(1 (concatenate 'string
;; Well, this is called early in cold-init, before
;; the type system is set up; however, now that we
;; check for bad lengths, the type system is needed
;; for calls to CONCATENATE. So we need to make sure
;; that the calls are transformed away:
(1 (concatenate 'string
- (the simple-base-string (string (car things)))
- (the simple-base-string (string (cadr things)))))
+ (the simple-base-string
+ (string (car things)))
+ (the simple-base-string
+ (string (cadr things)))))
- (the simple-base-string (string (car things)))
- (the simple-base-string (string (cadr things)))
- (the simple-base-string (string (caddr things)))))
+ (the simple-base-string
+ (string (car things)))
+ (the simple-base-string
+ (string (cadr things)))
+ (the simple-base-string
+ (string (caddr things)))))