Skip to content
Snippets Groups Projects
Commit 64118f60 authored by dtc's avatar dtc
Browse files

Avoid the use of the symbol SLOT internally in COMMON-LISP package as

it conflicts with the same symbol exported from the ALIEN package.
parent 5b6e3a31
No related branches found
No related tags found
No related merge requests found
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sysmacs.lisp,v 1.23 1998/07/28 06:56:32 dtc Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sysmacs.lisp,v 1.24 2000/08/10 13:16:22 dtc Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -107,30 +107,32 @@
(T ,@(if check-type `((check-type ,svar ,check-type)))
,svar)))))
;;; With-Mumble-Stream calls the function in the given Slot of the
;;; With-Mumble-Stream calls the function in the given slot of the
;;; Stream with the Args for lisp-streams, or the Function with the
;;; Args for fundamental-streams.
;;;
(defmacro with-in-stream (stream (slot &rest args) &optional stream-dispatch)
(defmacro with-in-stream (stream (lisp-stream-slot &rest args)
&optional stream-dispatch)
`(let ((stream (in-synonym-of ,stream)))
,(if stream-dispatch
`(if (lisp-stream-p stream)
(funcall (,slot stream) stream ,@args)
(funcall (,lisp-stream-slot stream) stream ,@args)
,@(when stream-dispatch
`(,(destructuring-bind (function &rest args) stream-dispatch
`(,function stream ,@args)))))
`(funcall (,slot stream) stream ,@args))))
`(funcall (,lisp-stream-slot stream) stream ,@args))))
(defmacro with-out-stream (stream (slot &rest args) &optional stream-dispatch)
(defmacro with-out-stream (stream (lisp-stream-slot &rest args)
&optional stream-dispatch)
`(let ((stream (out-synonym-of ,stream)))
,(if stream-dispatch
`(if (lisp-stream-p stream)
(funcall (,slot stream) stream ,@args)
(funcall (,lisp-stream-slot stream) stream ,@args)
,@(when stream-dispatch
`(,(destructuring-bind (function &rest args) stream-dispatch
`(,function stream ,@args)))))
`(funcall (,slot stream) stream ,@args))))
`(funcall (,lisp-stream-slot stream) stream ,@args))))
;;;; These are hacks to make the reader win.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment