Skip to content
Snippets Groups Projects
Commit 37f96193 authored by Kevin M. Rosenberg's avatar Kevin M. Rosenberg
Browse files

r5341: *** empty log message ***

parent 59760539
No related branches found
No related tags found
No related merge requests found
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
......
...@@ -22,7 +22,7 @@ ...@@ -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 @@ ...@@ -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 @@ ...@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment