style: non-functional refactoring to non-dangling close parenthesis form

parent e435b86f
......@@ -269,8 +269,7 @@ interpreted toplevel form, non-NIL if it is 'simple enough'."
(eval form)
`(progn
(put ',(second form) 'sys::source (cons '(,(second form) ,(namestring *source*) ,*source-position*) (get ',(second form) 'sys::source nil)))
,form)
)
,form))
(declaim (ftype (function (t t t) t) process-toplevel-quote))
(defun process-toplevel-quote (form stream compile-time-too)
......@@ -313,8 +312,7 @@ interpreted toplevel form, non-NIL if it is 'simple enough'."
(when (quoted-form-p type) (setq type (second type)))
(let ((sym (if (consp name) (second name) name)))
`(put ',sym 'sys::source (cons '(,type ,(namestring *source*) ,*source-position*)
(get ',sym 'sys::source nil)))
)))
(get ',sym 'sys::source nil))))))
(declaim (ftype (function (t t t) t) process-toplevel-mop.ensure-method))
......@@ -419,8 +417,7 @@ interpreted toplevel form, non-NIL if it is 'simple enough'."
(eval form)
`(progn
(put ',(second form) 'sys::source (cons '(,(second form) ,(namestring *source*) ,*source-position*) (get ',(second form) 'sys::source nil)))
,form)
)
,form))
(declaim (ftype (function (t t t) t) process-toplevel-eval-when))
(defun process-toplevel-eval-when (form stream compile-time-too)
......@@ -468,16 +465,16 @@ interpreted toplevel form, non-NIL if it is 'simple enough'."
(when (eq (car form) 'defgeneric)
`(progn
(put ',sym 'sys::source
(cons '((:generic-function ,(second form)) ,(namestring *source*) ,*source-position*) (get ',sym 'sys::source nil)))
(cons '((:generic-function ,(second form)) ,(namestring *source*) ,*source-position*) (get ',sym 'sys::source nil)))
,@(loop for method-form in (cdddr form)
when (eq (car method-form) :method)
collect
(multiple-value-bind (function-name qualifiers lambda-list specializers documentation declarations body)
(mop::parse-defmethod `(,(second form) ,@(rest method-form)))
;;; FIXME: style points for refactoring double backquote to "normal" form
`(put ',sym 'sys::source
(cons `((:method ,',sym ,',qualifiers ,',specializers) ,,(namestring *source*) ,,*source-position*)
(get ',sym 'sys::source nil)))))
))))
(get ',sym 'sys::source nil)))))))))
(declaim (ftype (function (t t t) t) process-toplevel-locally))
......@@ -531,8 +528,7 @@ interpreted toplevel form, non-NIL if it is 'simple enough'."
,saved-class-number))
,*source-position*
',(third form)
,(%documentation name 'cl:function)
))))))
,(%documentation name 'cl:function)))))))
(declaim (ftype (function (t t t) t) process-toplevel-defun))
(defun process-toplevel-defun (form stream compile-time-too)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment