cl-reader.el

[bojohan-dtrdnu4G8ymci/ (Johan Bockgård)]

Index: cl-reader.el
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
RCS file: /usr/local/cvsroot/emacs-cl/cl-reader.el,v
retrieving revision 1.76
diff -u -r1.76 cl-reader.el
--- cl-reader.el 16 Apr 2004 08:13:10 -0000 1.76
+++ cl-reader.el 17 Apr 2004 13:53:33 -0000
@@ -136,7 +136,7 @@
(go STEP-1))
((:terminating-macro :non-terminating-macro)
(let* ((fn (GET-MACRO-CHARACTER char))
- (list (MULTIPLE-VALUE-LIST (funcall fn stream char))))
+ (list (MULTIPLE-VALUE-LIST (FUNCALL fn stream char))))
(if (null list)
(if return-when-nothing
(return-from read1 (cl:values nil t))
@@ -401,7 +401,7 @@
((not digit)
(let ((fn (GET-DISPATCH-MACRO-CHARACTER char1 char)))
(cond
- (fn (funcall fn stream char param))
+ (fn (FUNCALL fn stream char param))
(*READ-SUPPRESS* (cl:values))
(t nil))))
(setq param (binary+ (binary* (or param 0) 10) digit))))

--=20
Johan Bockg=E5rd

[lars-zgYzP9v7iJcdnm+ (Lars Brinkhoff)]

Post by bojohan-dtrdnu4G8ymci/ (Johan Bockgård)
(let* ((fn (GET-MACRO-CHARACTER char))
- (list (MULTIPLE-VALUE-LIST (funcall fn stream char))))
+ (list (MULTIPLE-VALUE-LIST (FUNCALL fn stream char))))

...

Post by bojohan-dtrdnu4G8ymci/ (Johan Bockgård)
(let ((fn (GET-DISPATCH-MACRO-CHARACTER char1 char)))
(cond
- (fn (funcall fn stream char param))
+ (fn (FUNCALL fn stream char param))

Hacking reader macros, eh?

Thanks! There was a third place, also fixed. Will be in CVS soon.