From 617fff595006d80199b235d2d15f6b5a05be97c1 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sat, 19 Jul 2003 18:21:43 +0000 Subject: [PATCH] r5334: *** empty log message *** --- src.lisp | 21 ++++++++++----------- 1 file changed, 10 insertions(+), 11 deletions(-) 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 -- 1.7.10.4