From: ····@smu
Subject: Sun Common Lisp FPA incompatable
Date:
Message-ID: <245100001@smu>
Sun Common Lisp and our Floating Point Accelerator are incompatable.
To wit, when we do a "MAKEDEV /dev/fpa" and reboot,
the behavior indicated below occurs. Note that this will occur with any
70 or more line program that defines a couple of functions. Small programs
run OK. Programs that create big lists run OK. Whatever space is needed
for function definitions just runs out quickly.
A program that keeps redefining the same function over and over again
runs OK.
When remove /dev/fpa, we can use LISP properly.
We are mystified!
Script started on Fri May 6 21:37:04 1988
mickey% lisp
;;; Sun Common Lisp, Version 1.2, 13 June 1986
;;;
;;; Copyright (c) 1986 by Sun Microsystems, Inc. All Rights Reserved
;;;
;;; This software product contains confidential and trade secret
;;; information belonging to Sun Microsystems. It may not be copied
;;; for any reason other than for archival and backup purposes.
> (load "test.l")
;;; GC: 7566 words [30264 bytes] of dynamic storage in use.
;;; 74102 words [296408 bytes] of free storage available before a GC.
;;; 155770 words [623080 bytes] of free storage available if GC is disabled.
;;; GC: 9866 words [39464 bytes] of dynamic storage in use.
;;; 71802 words [287208 bytes] of free storage available before a GC.
;;; 153470 words [613880 bytes] of free storage available if GC is disabled.
;;; GC: 41858 words [167432 bytes] of dynamic storage in use.
.
.
.
.
;;; 39810 words [159240 bytes] of free storage available before a GC.
;;; 121478 words [485912 bytes] of free storage available if GC is disabled.
;;; GC required to re-organize memory for GC disabling
;;; GC: 41858 words [167432 bytes] of dynamic storage in use.
;;; 39810 words [159240 bytes] of free storage available before a GC.
;;; 121478 words [485912 bytes] of free storage available if GC is disabled.
>>Error: Not enough storage after GC.
GC:
Optional arg 0 (SIZE): 159312
Optional arg 1 (DONT-WORRY): NIL
:A Abort to Lisp Top Level
:C GC will be disabled:
CONSers will use the storage normally reserved
for copying currently allocated dynamic storage.
The next GC might fail.
-> :a
;;; Abnormal exit of load "test.l"
Back to Lisp Top Level
> (quit)
mickey% ^D
script done on Fri May 6 21:42:43 1988
________________________________________________________________________________
How test.l looks
(defun barf1 (test)
(setq temp1 nil)
(dotimes (i test)
(setq temp1 (cons 'a temp1))
)
)
(defun barf2 (test)
(setq temp1 nil)
(dotimes (i test)
(setq temp1 (cons 'a temp1))
)
.
.
.
.
(defun barfr(test)
(setq temp1 nil)
(dotimes (i test)
(setq temp1 (cons 'a temp1))
)
)
(defun barfs(test)
(setq temp1 nil)
(dotimes (i test)
(setq temp1 (cons 'a temp1))
)
)
Laurence Leff: Coordinator, Computer Science and Engineering Department
Computer Facilities Management Team, 75275-0122, 214-692-2859
Moderator comp.doc.techreports/TRLIST, Symbolic Math List
convex!smu!leff ·············@uunet E1AR0002 at SMUVM1 (BITNET)
From: Alan Kostinsky
Subject: Re: Sun Common Lisp FPA incompatable
Date:
Message-ID: <53234@sun.uucp>
This problem has been fixed since Release 2.0 of Sun Common Lisp (the
current release is 2.1).
Alan Kostinsky
Sun Software Support
UUCP: sun!alank