Commit a120a975 authored by Frode Vatvedt Fjeld's avatar Frode Vatvedt Fjeld

I think I simply forgot to check in this. Maybe this fixes the problem

with binary-types and CMUCL.
parent e8468c3a
;;;;------------------------------------------------------------------
;;;;
;;;; Copyright (C) 200120001999, 2003-2004,
;;;; Department of Computer Science, University of Troms, Norway
;;;; Copyright (C) 1999-2004,
;;;; Department of Computer Science, University of Tromsoe, Norway
;;;;
;;;; Filename: binary-types.lisp
;;;; Description: Reading and writing of binary data in streams.
......@@ -9,7 +9,7 @@
;;;; Created at: Fri Nov 19 18:53:57 1999
;;;; Distribution: See the accompanying file COPYING.
;;;;
;;;; $Id: binary-types.lisp,v 1.1.1.1 2004/01/13 11:13:13 ffjeld Exp $
;;;; $Id: binary-types.lisp,v 1.2 2004/01/15 13:18:29 ffjeld Exp $
;;;;
;;;;------------------------------------------------------------------
......@@ -421,14 +421,15 @@ read are returned."
;;;(defun record-slot-type (s) (second s))
;;;(defun record-slot-on-write (s) (third s))
(defstruct record-slot
name
type
map-write
map-read
map-read-delayed
hidden-read-slot
tags) ; for map-read-delayed, the binary value is stored here.
(eval-when (:load-toplevel :compile-toplevel)
(defstruct record-slot
name
type
map-write
map-read
map-read-delayed
hidden-read-slot
tags)) ; for map-read-delayed, the binary value is stored here.
(defmethod make-load-form ((object record-slot) &optional environment)
(declare (ignore environment))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment