dev-lisp/cl-mcclim/files/0.9.2-mcclim.asd-cmucl.patch


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

diff -ur mcclim-0.9.2.orig/mcclim.asd mcclim-0.9.2/mcclim.asd
--- mcclim-0.9.2.orig/mcclim.asd	2006-03-24 05:45:03.000000000 -0600
+++ mcclim-0.9.2/mcclim.asd	2006-05-25 00:16:42.000000000 -0500
@@ -35,16 +35,9 @@
 ;;; Legacy CMUCL support stuff
 #+cmu
 (progn
-  (unless (fboundp 'ext:stream-read-char)
-    (unless (ignore-errors (ext:search-list "gray-streams:"))
-      (setf (ext:search-list "gray-streams:")
-	'("target:pcl/" "library:subsystems/")))
-    (if (fboundp 'extensions:without-package-locks)
-	(extensions:without-package-locks
-	 (load "gray-streams:gray-streams-library"))
-      (load "gray-streams:gray-streams-library")))
-  #-clx
-  (require :clx)
+  
+  (asdf:oos 'asdf:load-op :cmucl-graystream)
+  (asdf:oos 'asdf:load-op :cmucl-clx)
   #+mp (when (eq mp::*initial-process* mp::*current-process*)
 	 (format t "~%~%You need to run (mp::startup-idle-and-top-level-loops) to start up the multiprocessing support.~%~%")))