- (let* ((pointer *static-space-free-pointer*) ; in words
- (free (* pointer n-word-bytes))
- (vector (logior free other-pointer-lowtag)) ; in bytes, yay
- ;; rounded to dual word boundary
- (nwords (logandc2 (+ lowtag-mask (+ words vector-data-offset 1))
- lowtag-mask))
- (new-pointer (+ *static-space-free-pointer* nwords))
- (new-free (* new-pointer n-word-bytes)))
- (unless (> static-space-end new-free)
- (error 'simple-storage-condition
- :format-control "Not enough memory left in static space to ~
+ (let* ((pointer *static-space-free-pointer*) ; in words
+ (free (* pointer n-word-bytes))
+ (vector (logior free other-pointer-lowtag)) ; in bytes, yay
+ ;; rounded to dual word boundary
+ (nwords (logandc2 (+ lowtag-mask (+ words vector-data-offset 1))
+ lowtag-mask))
+ (new-pointer (+ *static-space-free-pointer* nwords))
+ (new-free (* new-pointer n-word-bytes)))
+ (unless (> static-space-end new-free)
+ (error 'simple-storage-condition
+ :format-control "Not enough memory left in static space to ~