;;; -*- Mode:LISP; Readtable:CL; Base:10 -*-

#|

This is a test
 ;;;||| keith 10/5/88

bye
|# 

(defun foo () (read-from-string "#| This is a test |||keith bye |# /(foo)"))