source: branches/qres/ccl/lib/mcl-compat.lisp @ 14308

Last change on this file since 14308 was 13070, checked in by gz, 10 years ago

r13066, r13067 from trunk: copyrights etc

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.6 KB
Line 
1;;;-*-Mode: LISP; Package: CCL -*-
2;;;
3;;;   Copyright (C) 2009 Clozure Associates
4;;;   Copyright (C) 1994-2001 Digitool, Inc
5;;;   This file is part of Clozure CL. 
6;;;
7;;;   Clozure CL is licensed under the terms of the Lisp Lesser GNU Public
8;;;   License , known as the LLGPL and distributed with Clozure CL as the
9;;;   file "LICENSE".  The LLGPL consists of a preamble and the LGPL,
10;;;   which is distributed with Clozure CL as the file "LGPL".  Where these
11;;;   conflict, the preamble takes precedence. 
12;;;
13;;;   Clozure CL is referenced in the preamble as the "LIBRARY."
14;;;
15;;;   The LLGPL is also available online at
16;;;   http://opensource.franz.com/preamble.html
17
18(in-package "CCL")
19
20;;; mcl-compat.lisp - (some) backwards-compatibility with traditional MCL
21;;;  (CLtL2/ANSI, etc.)
22
23;;;  Gratuitous name changes, for the most part:
24
25(deftype base-character () 'base-char)
26(deftype extended-character () 'extended-char)
27
28(defmacro define-setf-method (access-fn lambda-list &body body)
29  `(define-setf-expander ,access-fn ,lambda-list ,@body))
30
31(defun get-setf-method (form &optional environment)
32  (get-setf-expansion-aux form environment nil))
33
34(defun get-setf-method-multiple-value (form &optional environment)
35  "Like Get-Setf-Method, but may return multiple new-value variables."
36  (get-setf-expansion-aux form environment t))
37
38;;; Traditional MCL I/O primitives:
39
40(defun tyi (stream)
41  (let* ((ch (stream-read-char stream)))
42    (unless (eq ch :eof) ch)))
43
44(defun untyi (ch &optional stream)
45  (stream-unread-char (designated-input-stream stream) ch))
46
47(defun tyo (ch &optional stream)
48  (stream-write-char (real-print-stream stream) ch))
Note: See TracBrowser for help on using the repository browser.