From 174c2e9d2b12683086c68429b5e5b17bf4f60ccd Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Fri, 18 Jul 2003 21:00:54 +0000 Subject: [PATCH] r5325: *** empty log message *** --- README | 3 ++- debian/changelog | 8 ++++---- src.lisp | 9 +++------ 3 files changed, 9 insertions(+), 11 deletions(-) diff --git a/README b/README index 6acc5b0..2fa22b5 100644 --- a/README +++ b/README @@ -12,7 +12,8 @@ LLGPL as include in this distribution. A regression package is include which uses Franz's open-source tester library. I've also ported that library for use on other -CL implementations. +CL implementations. Puri completes 126/126 regression tests +successfully. Puri home: http://files.b9.com/puri/ Portable tester home: http://files.b9.com/tester/ diff --git a/debian/changelog b/debian/changelog index dd4257e..e6713f4 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,16 +1,16 @@ -cl-uri (1.2-1) unstable; urgency=low +cl-puri (1.2-1) unstable; urgency=low - * More porting fixes + * More porting fixes. Now passes 126/126 regression tests. -- Kevin M. Rosenberg Fri, 18 Jul 2003 13:59:51 -0600 -cl-uri (1.1-1) unstable; urgency=low +cl-puri (1.1-1) unstable; urgency=low * Fix some porting issues -- Kevin M. Rosenberg Fri, 18 Jul 2003 08:59:04 -0600 -cl-uri (1.0) unstable; urgency=low +cl-puri (1.0) unstable; urgency=low * Initial upload * Changes compared to upstream: diff --git a/src.lisp b/src.lisp index 22e34f1..d900a06 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.2 2003/07/18 20:51:37 kevin Exp $ +;; $Id: src.lisp,v 1.3 2003/07/18 21:00:54 kevin Exp $ (defpackage #:puri (:use #:cl) @@ -61,14 +61,12 @@ (eval-when (compile) (declaim (optimize (speed 3)))) + (eval-when (:compile-toplevel :load-toplevel :execute) (defvar if*-keyword-list '("then" "thenret" "else" "elseif"))) #-allegro -(define-condition parse-error (error) - () - ) - +(define-condition parse-error (error) ()) (defun .parse-error (fmt &rest args) #+allegro (apply #'excl::.parse-error fmt args) @@ -85,7 +83,6 @@ #-allegro (defvar *current-case-mode* :case-insensitive-upper) -;; From Larry Hunter with modifications (defun position-char (char string start max) (declare (optimize (speed 3) (safety 0) (space 0)) (fixnum start max) (simple-string string)) -- 1.7.10.4