"compiler/knownfun.lisp" did not exist on "6a9d4112caf2c65653cbda36229f1b98907dbf72"
- Dec 01, 2003
-
-
toy authored
prevents division by zero or overflow errors if the rehash-threshold is too small.
-
- Nov 25, 2003
-
-
toy authored
the C function.
-
- Nov 24, 2003
-
-
toy authored
behavior back to the old way where the parse is terminated as soon as possible, treating trailing whitespace as terminating characters.
-
- Nov 21, 2003
-
-
toy authored
foreign functions in the backtrace. I slightly frobbed the order of the displayed info to display the function first. Suggestions welcome for a nicer arrangement.
-
- Nov 12, 2003
-
-
toy authored
silently revert to initializing to the random state from the current time. From Ole Rohne via cmucl-imp. This works around a problem on one of his machines where /dev/urandom isn't what we think it is. We still lose if /dev/urandom returns words that aren't random enough. Oh well.
-
- Nov 08, 2003
-
-
gerd authored
(require :gray-streams) (defclass my-in-stream (ext:fundamental-character-input-stream) ((last-char :initarg :last-char))) (let ((string " a ") (i 0)) (defmethod ext:stream-read-char ((s my-in-stream)) (with-input-from-string (s "b") (read s)) (with-slots (last-char) s (cond (last-char (prog1 last-char (setf last-char nil))) (t (prog1 (aref string i) (setq i (mod (1+ i) (length string))))))))) (defmethod ext:stream-unread-char ((s my-in-stream) char) (setf (slot-value s 'last-char) char) nil) (setq x (make-instance 'my-in-stream :last-char nil)) (read x) => b, instead of a * src/code/reader.lisp: Use a new read buffer for each call to read or read-preserving-whitespace, instead of using one global buffer. From Helmut Eller.
-
- Nov 05, 2003
- Nov 03, 2003
-
-
gerd authored
:if-exists :supersede) (format stream "~S ~S ~S~%" 'these 'are 'symbols)) (with-open-file (stream "test.123" :direction :io :if-exists :overwrite) (read stream) (prin1 'insert stream)) (with-open-file (stream "test.123") (loop for line = (read-line stream nil) until (null line) do (write-line line))) Output should be "these insertmbols" Output is "these are symbols\ninsert" * src/code/fd-stream.lisp (def-output-routines): If there is any input read from UNIX but not supplied to the user of the stream, reposition to the real file position as seen from Lisp. Reported by Adam Warner.
-
- Oct 26, 2003
-
-
gerd authored
Wrap locally around single-element bodies, it can be a declaration. ANSI test HANDLER-CASE.29.
-
- Oct 24, 2003
-
-
toy authored
(defvar *s* (open "target:code/scavhook.lisp")) (defvar *buf* (make-array 5000 :element-type 'character)) (read-sequence *buf* *s* :end 3000) => 3000 (read-sequence *buf* *s* :end 3000) => 1096 or 4096 bytes read, when we should have read 4139 (length of scavhook.lisp). Make READ-INTO-SIMPLE-STRING keep trying to READ-N-BYTES until we have enough bytes or until READ-N-BYTES returns 0 bytes read (in which case we return a short read because there's nothing left to read).
-
toy authored
overflow checking. Enable with :heap-overflow-check. We reserve some number of pages on the heap. When the heap reaches the reserved pages, an overflow warning is signalled. The reserved pages are set 0. This allows some additional allocation to happen during debugging, if necessary. If another overflow happens, we throw to top-level. Sparc only right now. * lisp/sparc-assem.S (_do_dynamic_space_overflow_error): New function to handle a heap overflow error. (_do_dynamic_space_overflow_warning): New function to handle heap overflow warning. * lisp/sparc-arch.c (sigill_handler): Handle the two new traps caused by heap overflows. * lisp/interrupt.c (interrupt_handle_space_overflow): New function to handle interrupt caused by heap space overflows. * lisp/gencgc.c (handle_heap_overflow): New function to handle heap overflows. (gc_alloc_new_region): Use handle_heap_overflow. (gc_alloc_large): Use handle_heap_overflow * compiler/sparc/parms.lisp (static-symbols): Add new static symbols for heap overflow checking: dynamic-space-overflow-error-hit and dynamic-space-overflow-warning-hit. * compiler/generic/new-genesis.lisp (finish-symbols): Initialize the new dynamic-space-overflow-error-hit and dynamic-space-overflow-warning-hit static symbols. * code/lispinit.lisp (:heap-overflow-check): Add heap-overflow-check to *runtime-features*, if necessary. ("reserved_heap_pages"): Access to alien variable for heap overflow. (*reserved-heap-pages*): Default number of heap pages to reserve for heap overflow. (%top-level): Set reserved-heap-pages to the default. * code/interr.lisp (dynamic-space-overflow-warning-hit): Add function to handle heap overflow warnings. (dynamic-space-overflow-error-hit): Add function to handle heap overflow error. * code/error.lisp (heap-overflow): Add new condition type for heap overflow
-
- Oct 15, 2003
-
-
toy authored
allow for the larger heaps available now. (Probably makes room even more consy than it already is.) o Increase the field width when printing out sizes so columns line up nicely. o Make the top <n> instances print out more neatly in columns.
-
toy authored
columns line up neatly with large heaps.
-
toy authored
have much larger heaps now.
-
- Oct 09, 2003
- Oct 05, 2003
-
-
gerd authored
* src/compiler/globaldb.lisp (get-info-value): * src/code/extensions.lisp (define-hash-cache): Use without-interrupts.
-
- Sep 25, 2003
-
-
toy authored
byte-fasl-file-version. * src/code/sysmacs.lisp (register-lisp-runtime-feature): (register-lisp-feature): Don't quote the given feature. * src/code/misc.lisp: Register more features, mostly for sparc.
-
toy authored
REGISTER-LISP-RUNTIME-FEATURE.
-
toy authored
and *RUNTIME-FEATURES* and setting them appropriately as files are loaded so that recompiling CMUCL produces a result with the same set of features. *RUNTIME-FEATURES* is a subset of *FEATURES* that is written out to internals.h so the C code can be compiled appropriately. A simple bootstrap with boot17 is needed.
-
- Sep 12, 2003
-
-
toy authored
-
- Sep 09, 2003
-
-
gerd authored
Add (the integer ...). Found by Paul Dietz.
-
- Sep 08, 2003
- Sep 05, 2003
- Sep 04, 2003
-
-
toy authored
-
- Sep 02, 2003
-
-
gerd authored
* src/code/float-trap.lisp (FPE_*) [freebsd4]: Define constants from machine/trap.h. (sigfpe-handler) [freebsd4]: Use the code parameter to determine the reason for the signal.
-
- Aug 31, 2003
- Aug 29, 2003
-
-
gerd authored
=> 3258488172 (ext:parse-time "Fri, 04 Apr 2003 01:36:12 +0200") => nil * src/code/parse-time.lisp (decompose-string): Handle offsets from GMT with a leading +. From Miles Egan. Reported by Dan Barlow.
-
gerd authored
From Fred Gilham. * src/code/clx-ext.lisp (open-clx-display): Fixes for the case $DISPLAY doesn't specify a host. * src/clx/display.lisp (open-display): Likewise.
-
- Aug 28, 2003
-
-
gerd authored
when (eq i 'a) return :good while (< i 12) collect i) signaling a type-error because the while is done before the when. Found by Paul Dietz. * src/code/loop.lisp (loop-do-if): Move the call to loop-pseudo-body outside of the binding of *loop-inside-conditional*.
-
- Aug 27, 2003