Skip to content
Snippets Groups Projects
Commit 85ec0e40 authored by cer's avatar cer
Browse files

The usual swm hack attack. Lots of random changes wherever you look.

parent 2b9a7f1d
No related branches found
No related tags found
No related merge requests found
;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Package: CLIM-INTERNALS; Base: 10; Lowercase: Yes -*-
;; $fiHeader: defprotocol.lisp,v 1.4 92/02/24 13:07:21 cer Exp $
;; $fiHeader: defprotocol.lisp,v 1.5 92/07/01 15:46:16 cer Exp $
(in-package :clim-internals)
......@@ -64,6 +64,8 @@
;; place, so we never need to nest them (yet).
(defvar *original-stream* nil)
;; If you change this to maintain a more complex mapping than a simple
;; binding of *ORIGINAL-STREAM*, change ENCAPSULATED-STREAM too.
(defmacro generate-stream-protocol-trampolines ()
`(progn
,@(writing-clauses
......
;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Package: CLIM-INTERNALS; Base: 10; Lowercase: Yes -*-
;; $fiHeader: temp-strings.lisp,v 1.5 92/03/10 10:12:54 cer Exp $
;; $fiHeader: temp-strings.lisp,v 1.6 92/08/18 17:25:42 cer Exp $
(in-package :clim-internals)
......@@ -15,7 +15,7 @@
(defresource temporary-string
(&key (length 100) (adjustable t))
:constructor (make-array length
:element-type 'character
:element-type #+ANSI-90 'character #-ANSI-90 'string-char
:fill-pointer 0
:adjustable adjustable)
:matcher (and (eq adjustable (adjustable-array-p temporary-string))
......@@ -37,7 +37,7 @@
(defmacro evacuate-temporary-string (string-var)
`(if (temporary-string-p ,string-var)
(make-array (length ,string-var)
:element-type 'character
:element-type #+ANSI-90 'character #-ANSI-90 'string-char
:fill-pointer (length ,string-var)
:initial-contents ,string-var)
,string-var))
......
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