From eca110a0e104397762a99aacd75bee59ea5a7ec9 Mon Sep 17 00:00:00 2001
From: emarsden <emarsden>
Date: Wed, 21 May 2003 16:34:34 +0000
Subject: [PATCH] Change the names of lambda-nodes in IR1 for PCL-generated
 lambdas to something of the form (pcl::method name specializers...), instead
 of (:method name specializers).

---
 compiler/ir1tran.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp
index 633fc809f..e72d3ea54 100644
--- a/compiler/ir1tran.lisp
+++ b/compiler/ir1tran.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1tran.lisp,v 1.153 2003/05/14 12:03:15 emarsden Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1tran.lisp,v 1.154 2003/05/21 16:34:34 emarsden Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -2048,7 +2048,7 @@
                   (let ((decl (find 'pcl::method-name decls :key 'caadr)))
                     (and decl
                          (eq 'declare (first decl))
-                         (cons :method (cadadr decl))))))
+                         (cons 'pcl::method (cadadr decl))))))
 	res))))
 
 (declaim (end-block))
-- 
GitLab