mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 13:52:16 -08:00
Code Issues Projects Releases Packages Wiki Activity

Define a new built-in type ANSI-STREAM in the EXT package and used it in predlib, builtin.lsp and in the Gray streams package

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-05-09 22:19:22 +02:00
parent 7b42d8ca7f
commit 1d4f8ac75d
5 changed files with 18 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/c/symbols_list.h
View file

@ -1906,6 +1906,7 @@ cl_symbols[] = {
{EXT_ "EVALUATE-FORMS", EXT_ORDINARY, NULL, -1, OBJNULL},
{EXT_ "ARRAY-INDEX", EXT_ORDINARY, NULL, -1, OBJNULL},
{EXT_ "ANSI-STREAM", EXT_ORDINARY, NULL, -1, OBJNULL},
/* Tag for end of list */

1
src/c/symbols_list2.h
View file

@ -1906,6 +1906,7 @@ cl_symbols[] = {
{EXT_ "EVALUATE-FORMS",NULL},
{EXT_ "ARRAY-INDEX",NULL},
{EXT_ "ANSI-STREAM",NULL},
/* Tag for end of list */

16
src/clos/builtin.lsp
View file

@ -52,14 +52,14 @@
(base-string string vector)
(bit-vector vector)
(stream)
(ansi-stream stream)
(file-stream ansi-stream)
(echo-stream ansi-stream)
(string-stream ansi-stream)
(two-way-stream ansi-stream)
(synonym-stream ansi-stream)
(broadcast-stream ansi-stream)
(concatenated-stream ansi-stream)
(ext:ansi-stream stream)
(file-stream ext:ansi-stream)
(echo-stream ext:ansi-stream)
(string-stream ext:ansi-stream)
(two-way-stream ext:ansi-stream)
(synonym-stream ext:ansi-stream)
(broadcast-stream ext:ansi-stream)
(concatenated-stream ext:ansi-stream)
(character)
(number)
(real number)

8
src/clos/streams.lsp
View file

@ -12,7 +12,7 @@
(in-package "GRAY")
(import 'clos::ansi-stream)
(import 'ext:ansi-stream)
;;;
;;; This is the generic function interface for CLOS streams.
@ -470,7 +470,7 @@
;; UNREAD-CHAR
(defmethod stream-unread-char ((stream ansi-stream) character)
(cl:unread-char stream character))
(cl:unread-char character stream))
(defmethod stream-unread-char ((stream ansi-stream) character)
(bug-or-error stream 'stream-unread-char))
@ -560,7 +560,7 @@
;; WRITE-BYTE
(defmethod stream-write-byte ((stream ansi-stream) integer)
(cl:write-byte stream integer))
(cl:write-byte integer stream))
(defmethod stream-write-byte ((stream t) integer)
(bug-or-error stream 'stream-write-byte))
@ -569,7 +569,7 @@
;; WRITE-CHAR
(defmethod stream-write-char ((stream ansi-stream) character)
(cl:write-char stream character))
(cl:write-char character stream))
(defmethod stream-write-char ((stream t) character)
(bug-or-error stream 'stream-write-char))

7
src/lsp/predlib.lsp
View file

@ -1188,9 +1188,10 @@ if not possible."
(STRING-STREAM)
(SYNONYM-STREAM)
(TWO-WAY-STREAM)
(STREAM (OR BROADCAST-STREAM CONCATENATED-STREAM ECHO-STREAM
FILE-STREAM STRING-STREAM SYNONYM-STREAM TWO-WAY-STREAM
#+clos-streams GRAY:FUNDAMENTAL-STREAM))
(EXT:ANSI-STREAM (OR BROADCAST-STREAM CONCATENATED-STREAM ECHO-STREAM
FILE-STREAM STRING-STREAM SYNONYM-STREAM TWO-WAY-STREAM
#+clos-streams GRAY:FUNDAMENTAL-STREAM))
(STREAM EXT:ANSI-STREAM)
(READTABLE)
#+threads (MP::PROCESS)