From 2aad4262cc006f201d1e14f74561cf9d78b1596d Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sun, 20 Sep 2009 09:01:54 +0000 Subject: * algebra/data.spad.pamphlet (size$Byte): Implement. (index$Byte): Likewise. (lookup$Byte): Likewise. (random$Byte): Likewise. --- src/algebra/strap/OUTFORM.lsp | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'src/algebra/strap') diff --git a/src/algebra/strap/OUTFORM.lsp b/src/algebra/strap/OUTFORM.lsp index 9f6d60da..636f4db5 100644 --- a/src/algebra/strap/OUTFORM.lsp +++ b/src/algebra/strap/OUTFORM.lsp @@ -63,6 +63,9 @@ (DECLAIM (FTYPE (FUNCTION (|%DoubleFloat| |%Shell|) |%Thing|) |OUTFORM;outputForm;Df$;14|)) +(PUT '|OUTFORM;outputForm;Df$;14| '|SPADreplace| + 'DFLOAT-FORMAT-GENERAL) + (DECLAIM (FTYPE (FUNCTION (|%String| |%Shell|) |%Thing|) |OUTFORM;outputForm;S$;15|)) @@ -557,7 +560,8 @@ (DEFUN |OUTFORM;outputForm;S$;13| (|e| $) (DECLARE (IGNORE $)) |e|) (DEFUN |OUTFORM;outputForm;Df$;14| (|f| $) - (FORMAT NIL (|getShellEntry| $ 6) |f|)) + (DECLARE (IGNORE $)) + (DFLOAT-FORMAT-GENERAL |f|)) (DEFUN |OUTFORM;outputForm;S$;15| (|s| $) (SPADCALL (|spadConstant| $ 27) -- cgit v1.2.3