/[gcl]/gcl/ansi-tests/set-syntax-from-char.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/set-syntax-from-char.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by pfdietz, Sun Jan 30 13:50:08 2005 UTC revision 1.3 by pfdietz, Sun Jan 30 13:58:23 2005 UTC
# Line 72  Line 72 
72          (with-standard-io-syntax          (with-standard-io-syntax
73           (let ((*readtable* (copy-readtable nil))           (let ((*readtable* (copy-readtable nil))
74                 (*package* (find-package "CL-TEST")))                 (*package* (find-package "CL-TEST")))
            (setf (readtable-case *readtable*) :preserve)  
75             (let ((results             (let ((results
76                    (list                    (list
77                     (set-syntax-from-char c #\\)                     (set-syntax-from-char c #\\)
# Line 81  Line 80 
80                 (list c results))))))                 (list c results))))))
81    nil)    nil)
82    
83  (deftest set-syntax-from-char.multiple-escape.1  (deftest set-syntax-from-char.multiple-escape
84    (loop for c across +standard-chars+    (loop for c across +standard-chars+
85          nconc          nconc
86          (with-standard-io-syntax          (with-standard-io-syntax
87           (let ((*readtable* (copy-readtable nil))           (let ((*readtable* (copy-readtable nil))
88                 (*package* (find-package "CL-TEST")))                 (*package* (find-package "CL-TEST")))
            (setf (readtable-case *readtable*) :preserve)  
89             (let ((results             (let ((results
90                    (list                    (list
91                     (set-syntax-from-char c #\|)                     (set-syntax-from-char c #\|)

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26