dev-lisp/cmucl-source/files/19a/cmucl-hemlock-dict.asd-gentoo.patch


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

diff -ur cmucl-19a-release-20040728.orig.orig/own-work/cmucl-hemlock-dict.asd cmucl-19a-release-20040728.orig/own-work/cmucl-hemlock-dict.asd
--- cmucl-19a-release-20040728.orig.orig/own-work/cmucl-hemlock-dict.asd	2004-08-03 10:49:24.000000000 -0500
+++ cmucl-19a-release-20040728.orig/own-work/cmucl-hemlock-dict.asd	2004-08-03 22:02:01.490752840 -0500
@@ -7,7 +7,7 @@
 
 #+cmu
 (eval-when (:load-toplevel :compile-toplevel :execute)
-  (defun user::hemlock-compile-dictionary (source-file
+  (defun cl-user::hemlock-compile-dictionary (source-file
                                            &rest rest
                                            &key
                                            output-file
@@ -35,7 +35,7 @@
 	(list list)))
 #+cmu
 (defmethod perform ((op compile-op) (c dictionary-source-file))
-  (user::hemlock-compile-dictionary (component-pathname c)
+  (cl-user::hemlock-compile-dictionary (component-pathname c)
 				   :output-file (car (output-files op c))))
 
 (defmethod perform ((op load-op) (c dictionary-source-file))