Commit 7caec23f authored by Frode Vatvedt Fjeld's avatar Frode Vatvedt Fjeld

Minor bits about basic-vectors.

parent 9bfeaf0b
......@@ -10,7 +10,7 @@
;;;; Author: Frode Vatvedt Fjeld <frodef@acm.org>
;;;; Created at: Fri Aug 24 11:39:37 2001
;;;;
;;;; $Id: procfs-image.lisp,v 1.6 2004/06/01 15:16:54 ffjeld Exp $
;;;; $Id: procfs-image.lisp,v 1.7 2004/06/06 03:02:45 ffjeld Exp $
;;;;
;;;;------------------------------------------------------------------
......@@ -110,6 +110,7 @@
((not movitz-object)
expr)
((or movitz-nil movitz-constant-block) nil)
(movitz-std-instance expr)
(movitz-symbol
(intern (movitz-print (movitz-symbol-name expr))))
(movitz-string
......@@ -117,7 +118,7 @@
(movitz-vector-symbolic-data expr)))
(movitz-fixnum
(movitz-fixnum-value expr))
(movitz-vector
((or movitz-vector movitz-basic-vector)
(map 'vector #'movitz-print (movitz-vector-symbolic-data expr)))
(movitz-cons
(cons (movitz-print (movitz-car expr))
......
......@@ -10,7 +10,7 @@
;;;; Author: Frode Vatvedt Fjeld <frodef@acm.org>
;;;; Created at: Mon Aug 27 14:46:50 2001
;;;;
;;;; $Id: stream-image.lisp,v 1.5 2004/05/24 14:58:07 ffjeld Exp $
;;;; $Id: stream-image.lisp,v 1.6 2004/06/01 15:16:59 ffjeld Exp $
;;;;
;;;;------------------------------------------------------------------
......@@ -87,6 +87,8 @@
(case type-tag
(:funobj
(read-binary 'movitz-funobj (image-stream image)))
(:basic-vector
(read-binary 'movitz-basic-vector (image-stream image)))
(:vector
(read-binary 'movitz-vector (image-stream image)))
(:defstruct
......
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