common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

Remove forward declaration.

Browse source
This commit is contained in:
Charles Zhang 2022-01-29 19:17:37 -08:00
parent 22898a0bda
commit f0cd4d09c0
2 changed files with 9 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/code/early-defmethod.lisp
View file

@ -103,3 +103,12 @@
(declare (inline (setf slot-value)) (ignorable #'(setf slot-value)))
(block ,(fun-name-block-name name) ,@forms)))))
(sb-c:source-location))))))
(define-source-context defmethod (name &rest stuff)
(let ((arg-pos (position-if #'listp stuff)))
(if arg-pos
`(defmethod ,name ,@(subseq stuff 0 arg-pos)
,(handler-case
(nth-value 2 (parse-specialized-lambda-list (elt stuff arg-pos)))
(error () "<illegal syntax>")))
`(defmethod ,name "<illegal syntax>"))))

11
src/pcl/compiler-support.lisp
View file

@ -46,17 +46,6 @@
((not (types-equal-or-intersect otype standard-object)) nil)
(t `(%pcl-instance-p object)))))
(declaim (ftype function sb-pcl::parse-specialized-lambda-list))
(define-source-context defmethod (name &rest stuff)
(let ((arg-pos (position-if #'listp stuff)))
(if arg-pos
`(defmethod ,name ,@(subseq stuff 0 arg-pos)
,(handler-case
(nth-value 2 (sb-pcl::parse-specialized-lambda-list
(elt stuff arg-pos)))
(error () "<illegal syntax>")))
`(defmethod ,name "<illegal syntax>"))))
(define-load-time-global sb-pcl::*internal-pcl-generalized-fun-name-symbols* nil)
(defmacro define-internal-pcl-function-name-syntax (name (var) &body body)