\f
(define-condition format-error (error)
((complaint :reader format-error-complaint :initarg :complaint)
\f
(define-condition format-error (error)
((complaint :reader format-error-complaint :initarg :complaint)
`(progn
(defun ,defun-name (,directive ,directives)
,@(if lambda-list
`(progn
(defun ,defun-name (,directive ,directives)
,@(if lambda-list
- `((let ,(mapcar #'(lambda (var)
- `(,var
- (,(intern (concatenate
- 'string
- "FORMAT-DIRECTIVE-"
- (symbol-name var))
- (symbol-package 'foo))
- ,directive)))
+ `((let ,(mapcar (lambda (var)
+ `(,var
+ (,(symbolicate "FORMAT-DIRECTIVE-" var)
+ ,directive)))
;;;; format directive and support function for user-defined method
(def-format-directive #\/ (string start end colonp atsignp params)
;;;; format directive and support function for user-defined method
(def-format-directive #\/ (string start end colonp atsignp params)
(collect ((param-names) (bindings))
(dolist (param-and-offset params)
(let ((param (cdr param-and-offset)))
(collect ((param-names) (bindings))
(dolist (param-and-offset params)
(let ((param (cdr param-and-offset)))
(,symbol stream ,(expand-next-arg) ,colonp ,atsignp
,@(param-names))))))
(,symbol stream ,(expand-next-arg) ,colonp ,atsignp
,@(param-names))))))