[cl-plus-ssl-cvs] CVS update: trivial-gray-streams/package.lisp

[David Lichteblau]

Update of /project/cl-plus-ssl/cvsroot/trivial-gray-streams
In directory common-lisp.net:/tmp/cvs-serv3220

Modified Files:
	package.lisp 
Log Message:
allegro autoloading workaround

Date: Sat Nov 26 13:01:05 2005
Author: dlichteblau

Index: trivial-gray-streams/package.lisp
diff -u trivial-gray-streams/package.lisp:1.2 trivial-gray-streams/package.lisp:1.3
--- trivial-gray-streams/package.lisp:1.2	Fri Nov 25 21:08:44 2005
+++ trivial-gray-streams/package.lisp	Sat Nov 26 13:01:03 2005
@@ -4,6 +4,11 @@
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (require :gray-streams))
 
+#+allegro
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (unless (fboundp 'stream:stream-write-string)
+    (require "streamc.fasl")))
+
 (macrolet
     ((frob ()
        (let