diff options
| author | William Harold Newman <william.newman@airmail.net> | 2005-07-14 16:30:05 +0000 |
|---|---|---|
| committer | William Harold Newman <william.newman@airmail.net> | 2005-07-14 16:30:05 +0000 |
| commit | 4898ef32c639b1c7f4ee13a5ba566ce6debd03e6 (patch) | |
| tree | bdf8e32306db976eb58db8af27c5767cae018427 /tests/reader.impure.lisp | |
| parent | 79cc569a97e444389350ea3f5b1017374fe16bec (diff) | |
0.9.2.43:
another slice of whitespace canonicalization
(Anyone who ends up here with "cvs annotate" probably
wants to look at the "tabby" tagged version.)
Diffstat (limited to 'tests/reader.impure.lisp')
| -rw-r--r-- | tests/reader.impure.lisp | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/reader.impure.lisp b/tests/reader.impure.lisp index 1d90ae191..3a9507ad8 100644 --- a/tests/reader.impure.lisp +++ b/tests/reader.impure.lisp @@ -8,7 +8,7 @@ ;;;; While most of SBCL is derived from the CMU CL system, the test ;;;; files (like this one) were written from scratch after the fork ;;;; from CMU CL. -;;;; +;;;; ;;;; This software is in the public domain and is provided with ;;;; absolutely no warranty. See the COPYING and CREDITS files for ;;;; more information. @@ -81,7 +81,7 @@ ;;; reported by Henrik Motakef (defpackage "") (assert (eq (symbol-package (read-from-string "||::FOO")) - (find-package ""))) + (find-package ""))) ;;; test nested reads, test case by Helmut Eller for cmucl (defclass my-in-stream (sb-gray:fundamental-character-input-stream) @@ -93,8 +93,8 @@ (with-input-from-string (s "b") (read s)) (with-slots (last-char) s (cond (last-char (prog1 last-char (setf last-char nil))) - (t (prog1 (aref string i) - (setq i (mod (1+ i) (length string))))))))) + (t (prog1 (aref string i) + (setq i (mod (1+ i) (length string))))))))) (defmethod sb-gray:stream-unread-char ((s my-in-stream) char) (setf (slot-value s 'last-char) char) |