count (zerop count))
(let ((n 0))
(declare (type index n))
- (dohash (k v x)
+ (dohash ((k v) x :locked t)
(unless (zerop n)
(write-char #\space s))
(incf n)
(%describe-doc x s 'type "Type")
(%describe-doc x s 'setf "Setf macro")
(dolist (assoc (info :random-documentation :stuff x))
- (format s
- "~&~@<Documentation on the ~(~A~):~@:_~A~:>"
- (car assoc)
- (cdr assoc)))
+ (let ((type (car assoc)))
+ (format s
+ "~&~@<Documentation on the ~(~A~):~@:_~A~:>"
+ (case type
+ ((optimize) "optimize quality")
+ (t (car assoc)))
+ (cdr assoc))))
;; Mention the associated type information, if any.
;;