X-Git-Url: http://git.kpe.io/?p=puri.git;a=blobdiff_plain;f=src.lisp;fp=src.lisp;h=4c3b66aa9571f3303297b0dde646a6f5b50da290;hp=e824ef4acff11d39d84e9467225596118f3e87d8;hb=617fff595006d80199b235d2d15f6b5a05be97c1;hpb=55a5a4735163dc9adc1e6ee9e49e4b0c335732e2

diff --git a/src.lisp b/src.lisp
index e824ef4..4c3b66a 100644
--- a/src.lisp
+++ b/src.lisp
@@ -22,7 +22,7 @@
 ;; Original version from ACL 6.1:
 ;; uri.cl,v 2.3.6.4.2.1 2001/08/09 17:42:39 layer
 ;;
-;; $Id: src.lisp,v 1.5 2003/07/19 13:34:12 kevin Exp $
+;; $Id: src.lisp,v 1.6 2003/07/19 18:21:43 kevin Exp $
 
 (defpackage #:puri
   (:use #:cl)
@@ -78,26 +78,24 @@
   #+(or allegro cmu sbcl lispworks)
   str
   #-(or allegro cmu sbcl lispworks)
-  (subseq new-string 0 (incf new-i)))
+  (subseq str 0 size))
 
 
+#-allegro
 (defun .parse-error (fmt &rest args)
-  #+allegro (apply #'excl::.parse-error fmt args)
-  #-allegro (error 
-	     (make-condition 'parse-error :format-control fmt
-			     :format-arguments args)))
+  (error (make-condition 'parse-error :format-control fmt
+			 :format-arguments args)))
 
+#-allegro
 (defun internal-reader-error (stream fmt &rest args)
-  #+allegro
-  (apply #'excl::internal-reader-error stream fmt args)
-  #-allegro
-  (apply #'format stream
-	 "#u takes a string or list argument: ~s" args))
+  (apply #'format stream fmt args))
 
 #-allegro (defvar *current-case-mode* :case-insensitive-upper)
 #+allegro (eval-when (compile load eval)
 	    (import '(excl:*current-case-mode*
 		      excl:delimited-string-to-list
+		      excl::.parse-error
+		      excl::internal-reader-error
 		      excl:if*)))
 
 #-allegro
@@ -1284,6 +1282,7 @@ Executes the forms once for each uri with var bound to the current uri"
 	  stream
 	  "#u takes a string or list argument: ~s" arg)))))
 
+
 #+allegro
 excl::
 #+allegro