From 5ae215c51771c1707ffdacaca49a6992b3461ed1 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Sun, 2 May 1993 14:57:23 +0000 Subject: [PATCH] Moved def-source-context for DEFMETHOD to PCL sources. --- compiler/ir1util.lisp | 11 +---------- 1 file changed, 1 insertion(+), 10 deletions(-) diff --git a/compiler/ir1util.lisp b/compiler/ir1util.lisp index 759a5502b..d423be33c 100644 --- a/compiler/ir1util.lisp +++ b/compiler/ir1util.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1util.lisp,v 1.60 1992/09/22 00:05:23 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1util.lisp,v 1.61 1993/05/02 14:57:23 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1596,15 +1596,6 @@ `(lambda ,(second thing)) `(function ,thing))) -#+pcl -(def-source-context pcl::defmethod (name &rest stuff) - (let ((arg-pos (position-if #'listp stuff))) - (if arg-pos - `(pcl::defmethod ,name ,@(subseq stuff 0 arg-pos) - ,@(nth-value 2 (pcl::parse-specialized-lambda-list - (elt stuff arg-pos)))) - `(pcl::defmethod ,name "<illegal syntax>")))) - ;;; SOURCE-FORM-CONTEXT -- Internal ;;; -- GitLab