24 |
((or string symbol) (name-char (string c))) |
((or string symbol) (name-char (string c))) |
25 |
(t nil))) |
(t nil))) |
26 |
(when c |
(when c |
27 |
(format t "~A ~A~%" c (char-name c)) |
;; (format t "~A ~A~%" c (char-name c)) |
28 |
`(def-set-syntax-from-char-test |
`(def-set-syntax-from-char-test |
29 |
,(intern (concatenate 'string "SET-SYNTAX-FROM-CHAR-TRAIT-X-" (or (char-name c) |
,(intern (concatenate 'string "SET-SYNTAX-FROM-CHAR-TRAIT-X-" (or (char-name c) |
30 |
(string c))) |
(string c))) |
66 |
|
|
67 |
;;; Turning characters into single escape characters |
;;; Turning characters into single escape characters |
68 |
|
|
69 |
(deftest set-syntax-from-char.single-escape |
(deftest set-syntax-from-char.single-escape.1 |
70 |
(loop for c across +standard-chars+ |
(loop for c across +standard-chars+ |
71 |
nconc |
nconc |
72 |
(with-standard-io-syntax |
(with-standard-io-syntax |
80 |
(list (list c results))))))) |
(list (list c results))))))) |
81 |
nil) |
nil) |
82 |
|
|
83 |
|
(deftest set-syntax-from-char.single-escape.2 |
84 |
|
(loop for c across +standard-chars+ |
85 |
|
unless (eql c #\") |
86 |
|
nconc |
87 |
|
(with-standard-io-syntax |
88 |
|
(let ((*readtable* (copy-readtable nil)) |
89 |
|
(*package* (find-package "CL-TEST"))) |
90 |
|
(let ((results |
91 |
|
(list |
92 |
|
(set-syntax-from-char c #\\) |
93 |
|
(read-from-string (concatenate 'string |
94 |
|
(list #\" c #\" #\")))))) |
95 |
|
(unless (equal results '(t "\"")) |
96 |
|
(list (list c results))))))) |
97 |
|
nil) |
98 |
|
|
99 |
|
|
100 |
(deftest set-syntax-from-char.multiple-escape |
(deftest set-syntax-from-char.multiple-escape |
101 |
(loop for c across +standard-chars+ |
(loop for c across +standard-chars+ |
102 |
nconc |
nconc |
471 |
(list (list c results))) |
(list (list c results))) |
472 |
))) |
))) |
473 |
nil) |
nil) |
|
|
|
|
|
|