Build fixes
... only complain about unknown external formats on character
streams;
... with-fixed-allocation bodies on x86 (and probably x86-64)
(function c-string int))
sb!unix:codeset)
"LATIN-1")
(function c-string int))
sb!unix:codeset)
"LATIN-1")
- "KEYWORD")))
- (dolist (entry *external-formats*
- (restart-case
- (error "Invalid external-format ~A"
- (fd-stream-external-format fd-stream))
- (use-default ()
- :report "Set external format to LATIN-1"
- (setf (fd-stream-external-format fd-stream) :latin-1))))
- (when (member (fd-stream-external-format fd-stream) (first entry))
- (return)))
+ "KEYWORD"))
+ (dolist (entry *external-formats*
+ (restart-case
+ (error "Invalid external-format ~A"
+ (fd-stream-external-format fd-stream))
+ (use-default ()
+ :report "Set external format to LATIN-1"
+ (setf (fd-stream-external-format fd-stream) :latin-1))))
+ (when (member (fd-stream-external-format fd-stream) (first entry))
+ (return))))
(when input-p
(multiple-value-bind (routine type size read-n-characters
(when input-p
(multiple-value-bind (routine type size read-n-characters
(:node-var node)
(:generator 10
(with-fixed-allocation
(:node-var node)
(:generator 10
(with-fixed-allocation
- (result value-cell-header-widetag value-cell-size node))
- (storew value result value-cell-value-slot other-pointer-lowtag)))
+ (result value-cell-header-widetag value-cell-size node)
+ (storew value result value-cell-value-slot other-pointer-lowtag))))
\f
;;;; automatic allocators for primitive objects
\f
;;;; automatic allocators for primitive objects
(:node-var node)
(:generator 10
(with-fixed-allocation
(:node-var node)
(:generator 10
(with-fixed-allocation
- (result value-cell-header-widetag value-cell-size node))
- (storew value result value-cell-value-slot other-pointer-lowtag)))
+ (result value-cell-header-widetag value-cell-size node)
+ (storew value result value-cell-value-slot other-pointer-lowtag))))
\f
;;;; automatic allocators for primitive objects
\f
;;;; automatic allocators for primitive objects
;;; checkins which aren't released. (And occasionally for internal
;;; versions, especially for internal versions off the main CVS
;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
;;; checkins which aren't released. (And occasionally for internal
;;; versions, especially for internal versions off the main CVS
;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)