see changelog entry for Thu Jul 22 23:03:43 PDT 2004

load.cl

@@ -1,6 +1,6 @@
 ;; load in aserve
 ;;
-;; $Id: load.cl,v 1.63 2003/10/24 15:11:24 jkf Exp $
+;; $Id: load.cl,v 1.63.44.1 2004/07/23 06:04:45 duane Exp $
 ;;
 
 ;
@@ -311,15 +311,22 @@
 
   (let ((buffer (make-array 4096 :element-type '(unsigned-byte 8))))
     (with-open-file (p dest :direction :output :if-exists :supersede
-		     :element-type '(unsigned-byte 8))
+		     #-(and allegro (version>= 6))
+		     :element-type
+		     #-(and allegro (version>= 6))
+		     '(unsigned-byte 8))
       (if* verbose
 	 then (format t "Creating ~s~%" dest))
       (dolist (file files)
 	(setq file (concatenate 'string root file))
 	(if* (and (null (pathname-type file))
 		  (not (probe-file file)))
 	   then (setq file (concatenate 'string file  ".fasl")))
-	(with-open-file (in file :element-type '(unsigned-byte 8))
+	(with-open-file (in file
+			 #-(and allegro (version>= 6))
+			 :element-type
+			 #-(and allegro (version>= 6))
+			 '(unsigned-byte 8))
 	  (loop
 	    (let ((count (read-sequence buffer in)))
 	      (if* (<= count 0) then (return))

packages.cl

@@ -24,7 +24,7 @@
 ;; Suite 330, Boston, MA  02111-1307  USA
 ;;
 ;;
-;; $Id: packages.cl,v 1.5.10.1 2004/06/10 17:35:24 layer Exp $
+;; $Id: packages.cl,v 1.5.10.2 2004/07/23 06:04:45 duane Exp $
 
 ;; Description:
 ;;   packages and exports for AllegroServe
@@ -41,7 +41,7 @@
 
 (eval-when (compile load eval)
   (require :uri)
-  (require :streamc))
+  #+ignore (require :streamc))
 
 
 (defpackage :net.aserve

publish.cl

@@ -24,7 +24,7 @@
 ;; Suite 330, Boston, MA  02111-1307  USA
 ;;
 ;;
-;; $Id: publish.cl,v 1.78 2004/01/16 19:31:14 layer Exp $
+;; $Id: publish.cl,v 1.78.26.1 2004/07/23 06:04:45 duane Exp $
 
 ;; Description:
 ;;   publishing urls
@@ -639,7 +639,11 @@
 
     (if* preload
        then ; keep the content in core for fast display
-	    (with-open-file (p file :element-type '(unsigned-byte 8))
+	    (with-open-file (p file
+			     #-(and allegro (version>= 6))
+			     :element-type
+			     #-(and allegro (version>= 6))
+			     '(unsigned-byte 8))
 	      (let ((size (excl::filesys-size (stream-input-fn p)))
 		    (lastmod (excl::filesys-write-date (stream-input-fn p)))
 		    (guts))
@@ -1276,7 +1280,10 @@
 		(if* (null (errorset 
 			    (setq p (open (file ent) 
 					  :direction :input
-					  :element-type '(unsigned-byte 8)))))
+					  #-(and allegro (version>= 6))
+					  :element-type
+					  #-(and allegro (version>= 6))
+					  '(unsigned-byte 8)))))
 		   then ; file not readable
 
 			(return-from process-entity nil))