source: release/1.6/source/library/sharp-comma.lisp @ 14493

Last change on this file since 14493 was 13066, checked in by rme, 10 years ago

Change "OpenMCL" to "Clozure CL" in comments and docstrings.

  • 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 (C) 1994-2001 Digitool, Inc.
4;;;   This file is part of Clozure CL. 
5;;;
6;;;   Clozure CL is licensed under the terms of the Lisp Lesser GNU Public
7;;;   License , known as the LLGPL and distributed with Clozure CL as the
8;;;   file "LICENSE".  The LLGPL consists of a preamble and the LGPL,
9;;;   which is distributed with Clozure CL as the file "LGPL".  Where these
10;;;   conflict, the preamble takes precedence. 
11;;;
12;;;   Clozure CL is referenced in the preamble as the "LIBRARY."
13;;;
14;;;   The LLGPL is also available online at
15;;;   http://opensource.franz.com/preamble.html
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.