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

r5341: *** empty log message ***

Browse Source
This commit is contained in:
Kevin M. Rosenberg
2003-07-20 16:25:21 +00:00
parent 59760539ab
commit 37f9619327
2 changed files with 18 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
debian/changelog vendored
View File

@ -1,3 +1,9 @@
cl-puri (1.2.6-1) unstable; urgency=low
* Fix .parse-error
--
cl-puri (1.2.5-1) unstable; urgency=low cl-puri (1.2.5-1) unstable; urgency=low
* add shrink vector, AllegroCL fixes * add shrink vector, AllegroCL fixes

17
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.7 2003/07/19 20:32:48 kevin Exp $ ;; $Id: src.lisp,v 1.8 2003/07/20 16:25:21 kevin Exp $
(defpackage #:puri (defpackage #:puri
(:use #:cl) (:use #:cl)
@ -63,8 +63,6 @@
(declaim (optimize (speed 3)))) (declaim (optimize (speed 3))))
#-(or allegro lispworks)
(define-condition parse-error (error) ())
#-allegro #-allegro
(defun parse-body (forms &optional env) (defun parse-body (forms &optional env)
@ -99,10 +97,19 @@
(subseq str 0 size)) (subseq str 0 size))
#-(or allegro lispworks)
(define-condition parse-error (error)
((fmt-control :initarg :fmt-control
:reader fmt-control)
(fmt-args :initarg :fmt-args
:reader fmt-args))
(:report (lambda (c stream)
(format stream "Parse error: ")
(apply #'format stream (fmt-control c) (fmt-args c)))))
#-allegro #-allegro
(defun .parse-error (fmt &rest args) (defun .parse-error (fmt &rest args)
(error (make-condition 'parse-error :format-control fmt (error (make-condition 'parse-error :fmt-control fmt :fmt-args args)))
:format-arguments args)))
#-allegro #-allegro
(defun internal-reader-error (stream fmt &rest args) (defun internal-reader-error (stream fmt &rest args)