evaluation-of-sharp-double-quote.lisp

CL-USER> #" " と \. を含みます。"#
" \" と \\. を含みます。"
CL-USER> 

evaluation-of-sharp-greater-than.lisp

CL-USER> #>END
ここには何でも置けますよ: "、\、"#、や ># だって
置けちゃう。この文字列の読み込みを終わらせるには...END
"ここには何でも置けますよ: \"、\\、\"#、や ># だって
置けちゃう。この文字列の読み込みを終わらせるには..."
CL-USER> 

sharp-double-quote.lisp

;;; SHARP-DOUBLE-QUOTE

;; Scheme-style
(defun |#"-reader| (stream sub-char numarg)
  (declare (ignore sub-char numarg))
  (labels ((iter (chars prev)
	     (let ((curr (read-char stream)))
	       (if (and (char= prev #\") (char= curr #\#))
		   (reverse chars)
		   (iter (cons prev chars) curr)))))
    (coerce (iter nil (read-char stream)) 'string)))

(set-dispatch-macro-character
 #\# #\" #'|#"-reader|)

sharp-greater-than.lisp

;;; SHARP-GREATER-THAN

;; Scheme-style
(defun |#>-reader| (stream sub-char numarg)
  (declare (ignore sub-char numarg))
  (labels ((foo (chars curr)
	     (if (char= #\newline curr)
		 (reverse chars)
		 (foo (cons curr chars) (read-char stream))))
	   (bar (curr pattern pointer output)
	     (if (null pointer)
		 (reverse (nthcdr (length pattern) output))
		 (bar (read-char stream) pattern
		      (if (char= (car pointer) curr)
			  (cdr pointer)
			  pattern) (cons curr output)))))
    (let ((pattern (foo nil (read-char stream))))
      (coerce (bar (read-char stream) pattern pattern nil) 'string))))

(set-dispatch-macro-character
 #\# #\> #'|#>-reader|)