Skip to content
Snippets Groups Projects
  1. Jan 10, 2004
  2. Jan 09, 2004
  3. Dec 03, 2003
  4. Dec 02, 2003
  5. Dec 01, 2003
  6. Nov 25, 2003
  7. Nov 24, 2003
  8. Nov 21, 2003
  9. Nov 14, 2003
  10. Nov 12, 2003
    • toy's avatar
      If we can't open /dev/urandom and read the desired number of words, · 8f50683d
      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.
      8f50683d
  11. Nov 11, 2003
  12. Nov 08, 2003
    • gerd's avatar
      (in-package :cl-user) · 097ec481
      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.
      097ec481
  13. Nov 06, 2003
  14. Nov 05, 2003
    • gerd's avatar
      (defclass data () ((name :accessor name))) · 5a8847ea
      gerd authored
      	(defmethod name :before ((data data)))
      
      	(name (make-instance 'data))
      	 => too few args in a call to a method function
      
      	This is caused by standard-reader/writer methods having a
      	fast-function, but that's not the one that we should funcall if
      	pcl::*inline-methods-in-emfs* is true.  Use the fast-method-call
      	mechanism for such methods instead.
      
      	* src/pcl/combin.lisp (inlinable-method-p): New function.
      	(make-direct-calls): Removed.
      	(memf-test-converter): Add a local function method-key for
      	determining the function generator key.
      	(memf-code-converter): Add local functions make-call and
      	make-calls.  Generate direct calls if inlinable-method-p returns
      	true.
      5a8847ea
    • gerd's avatar
      * src/code/fd-stream.lisp (output-raw-bytes): Same theme · 1434e8ef
      gerd authored
      	as last change, which fixed write-char etc. only.
      1434e8ef
    • toy's avatar
      o Add exports for the new symbols used for heap overflow checking. · 210e0db7
      toy authored
      o Gather some of the sparc-specific symbols into one spot.
      o Export unix::check to get rid of a warning.  (Not exactly sure where
        this comes from.)
      210e0db7
    • toy's avatar
      Fix typo in data-vector-ref-c/simple-array-complex-single-float. The · 8d4ff7e0
      toy authored
      imaginary part wasn't getting returned, and the real part was actually
      the imaginary part.
      8d4ff7e0
  15. Nov 04, 2003
    • gerd's avatar
      FIXME: There's a quirk somewhere when recording this · be4df415
      gerd authored
      	 dependency, which I don't have to time to debug right now.
      	 Redefining a function like this:
      
      	 (defun foo ())
      
      	 (let ((foo #'foo))
      	   (declare (function foo))
      	   (defun foo () (funcall foo)))
      
      	 leads to infinite recursion because the funcall uses
      	 FOO's fdefn object instead of the local variable's value.
      
      	* src/compiler/ir1tran.lisp (ir1-convert-variable): Don't
      	record DFO dependency.
      be4df415
Loading