OSCL/PURI
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

r5325: *** empty log message ***

Browse Source
This commit is contained in:
Kevin M. Rosenberg
2003-07-18 21:00:54 +00:00
parent a3cc7bca5a
commit 174c2e9d2b
3 changed files with 9 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
README
View File

@ -12,7 +12,8 @@ LLGPL as include in this distribution.
A regression package is include which uses Franz's open-source A regression package is include which uses Franz's open-source
tester library. I've also ported that library for use on other 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/ Puri home: http://files.b9.com/puri/
Portable tester home: http://files.b9.com/tester/ Portable tester home: http://files.b9.com/tester/

8
debian/changelog vendored
View File

@ -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 <kmr@debian.org> Fri, 18 Jul 2003 13:59:51 -0600 -- Kevin M. Rosenberg <kmr@debian.org> 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 * Fix some porting issues
-- Kevin M. Rosenberg <kmr@debian.org> Fri, 18 Jul 2003 08:59:04 -0600 -- Kevin M. Rosenberg <kmr@debian.org> Fri, 18 Jul 2003 08:59:04 -0600
cl-uri (1.0) unstable; urgency=low cl-puri (1.0) unstable; urgency=low
* Initial upload * Initial upload
* Changes compared to upstream: * Changes compared to upstream:

9
src.lisp
View File

@ -22,7 +22,7 @@
;; Original version from ACL 6.1: ;; Original version from ACL 6.1:
;; uri.cl,v 2.3.6.4.2.1 2001/08/09 17:42:39 layer ;; 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 (defpackage #:puri
(:use #:cl) (:use #:cl)
@ -61,14 +61,12 @@
(eval-when (compile) (declaim (optimize (speed 3)))) (eval-when (compile) (declaim (optimize (speed 3))))
(eval-when (:compile-toplevel :load-toplevel :execute) (eval-when (:compile-toplevel :load-toplevel :execute)
(defvar if*-keyword-list '("then" "thenret" "else" "elseif"))) (defvar if*-keyword-list '("then" "thenret" "else" "elseif")))
#-allegro #-allegro
(define-condition parse-error (error) (define-condition parse-error (error) ())
()
)
(defun .parse-error (fmt &rest args) (defun .parse-error (fmt &rest args)
#+allegro (apply #'excl::.parse-error fmt args) #+allegro (apply #'excl::.parse-error fmt args)
@ -85,7 +83,6 @@
#-allegro (defvar *current-case-mode* :case-insensitive-upper) #-allegro (defvar *current-case-mode* :case-insensitive-upper)
;; From Larry Hunter with modifications
(defun position-char (char string start max) (defun position-char (char string start max)
(declare (optimize (speed 3) (safety 0) (space 0)) (declare (optimize (speed 3) (safety 0) (space 0))
(fixnum start max) (simple-string string)) (fixnum start max) (simple-string string))