source: trunk/source/library/sharp-comma.lisp

Last change on this file was 16685, checked in by rme, 4 years ago

Update copyright/license headers in files.

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.1 KB
Line 
1;;;-*- Mode: Lisp; Package: CCL -*-
2;;;
3;;; Copyright 1994-2001 Clozure Associates
4;;;
5;;; Licensed under the Apache License, Version 2.0 (the "License");
6;;; you may not use this file except in compliance with the License.
7;;; You may obtain a copy of the License at
8;;;
9;;;     http://www.apache.org/licenses/LICENSE-2.0
10;;;
11;;; Unless required by applicable law or agreed to in writing, software
12;;; distributed under the License is distributed on an "AS IS" BASIS,
13;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
14;;; See the License for the specific language governing permissions and
15;;; limitations under the License.
16
17
18(in-package "CCL")
19
20;;; #, was removed from CL in 1998 or so, but there may be some legacy
21;;; code that still uses it.
22
23(set-dispatch-macro-character
24 #\#
25 #\,
26 #'(lambda (stream subchar numarg)
27     (let* ((sharp-comma-token *reading-for-cfasl*))
28       (if (or *read-suppress* (not *compiling-file*) (not sharp-comma-token))
29         (read-eval stream subchar numarg)
30         (progn
31           (require-no-numarg subchar numarg)
32           (list sharp-comma-token (read stream t nil t)))))))
Note: See TracBrowser for help on using the repository browser.