- (format "~%s" name))
- (good-symbols common-lisp-hyperspec-format-characters
- #'(lambda (sym)
- (= (length (symbol-name sym)) 1))))
- (good-symbols common-lisp-hyperspec-issuex-symbols)))
+ (format "~%c" (aref name 0)))
+ (good-symbols (some-var common-lisp-hyperspec--format-characters
+ common-lisp-hyperspec-format-characters)
+ #'(lambda (name)
+ (and (>= (length name) 3)
+ (= (aref name 2) ?-)
+ (let ((ch (aref name 0)))
+ (= ch (downcase ch)))))))
+ (good-symbols (some-var common-lisp-hyperspec--issuex-symbols
+ common-lisp-hyperspec-issuex-symbols))))