Skip to content
Snippets Groups Projects
  1. Apr 15, 2004
    • rtoy's avatar
      More ANSI test fixes: · 2e51cd52
      rtoy authored
      o FILE-STRING-LENGTH can be used on BROADCAST-STREAM's where the
        result is 1.
      o Graphic characters are not printed using the character name (hence
        #\space is printed #\ )
      o Make INPUT-STREAM-P and OUTPUT-STREAM-P work correctly on synonym
        streams.
      o MAKE-STRING-INPUT-STREAM was not accepting NIL for the optional END
        argument.
      o Close string-input streams.  (We weren't before.)
      2e51cd52
  2. Apr 14, 2004
  3. Apr 13, 2004
  4. Apr 10, 2004
  5. Apr 09, 2004
    • emarsden's avatar
      · 3f2ba723
      emarsden authored
      Fix stupid mistake in the broadcast-stream ANSI-compliance changes.
      3f2ba723
  6. Apr 08, 2004
    • emarsden's avatar
      · cd5ddae9
      emarsden authored
      Revert to old behaviour for SERVE-EVENT and reentry of handler functions.
      Don't mask out file descriptors whose handlers are active from the set of
      descriptors that we check for activity.
      
      The possibility for reentry of handler functions is required by Hemlock's
      slave lisp mechansism, which uses SERVE-EVENT via the WIRE facility.
      cd5ddae9
  7. Apr 07, 2004
    • emarsden's avatar
      ANSI compliance fixes for CONCATENATED-STREAMS: · c7aa07e6
      emarsden authored
        - (read-char-no-hang (make-concatenated-stream) nil :eof) returns :eof
          instead of nil
      
      Another bug brought to you by pfdietz.
      c7aa07e6
    • emarsden's avatar
      · 3eeefd6b
      emarsden authored
      More ANSI-compliance BROADCAST-STREAM fixes:
      
        - FILE-LENGTH and FILE-POSITION return the value from the last component
          stream, or 0 if there are no component streams.
      
      Will require a similar change for FILE-STRING-LENGTH (and addition of a
      :file-string-length misc-op).
      3eeefd6b
    • rtoy's avatar
      afa6bbfb
  8. Apr 06, 2004
    • emarsden's avatar
      More ANSI compliance fixes: · 1d002ae1
      emarsden authored
        - (fresh-line (make-broadcast-stream)) returns nil instead of t
      
        - STREAM-ELEMENT-TYPE on broadcast-streams should return element-type of
          the last component stream (see CLtS "System Class BROADCAST-STREAM").
          Fix from SBCL.
      
        - WRITE-SEQUENCE handles bit-vectors
      1d002ae1
    • emarsden's avatar
      · 7862b94e
      emarsden authored
      Two unrelated fixes to ADJUST-ARRAY:
      
        - (adjust-array (make-array nil :initial-element 'zob) nil)
          was losing the :initial-element information
      
        - ADJUST-ARRAY was sometimes returning the same array despite
          ADJUSTABLE-ARRAY-P returning nil for that array (fix from SBCL)
      
      Fixes a number of AJUST-ARRAY.* tests in Paul Dietz's ANSI compliance
      suite.
      7862b94e
    • emarsden's avatar
      · cf98504f
      emarsden authored
        - fix WRITE-SEQUENCE for vectors (detected by pfdietz' ANSI compliance
          test suite)
      
          (write-sequence (vector #\a) (make-string-output-stream))
      
          used to fail with
      
          "Type-error in lisp::write-vector-out:  #\a is not of type base-char"
      
          because the WRITE-SEQUENCE code is erroneously assuming that all vectors
          of characters are of type string. There are probably more errors of this
          nature!
      
      
        - fix STREAM-ELEMENT-TYPE for broadcast streams: CLtS specifies that t
          should be returned if there are no component streams, but we used to return
          nil.
      cf98504f
    • emarsden's avatar
      · f01e1819
      emarsden authored
        - fix defaulting behaviour of :if-not-exist in OPEN when used with
          :direction :io. Corrects a number of the OPEN.IO.* ANSI compliance tests.
      f01e1819
  9. Apr 01, 2004
    • rtoy's avatar
      Helmut Eller notes on cmucl-imp on 2004-04-24 that · 70cf5703
      rtoy authored
        (delete-file (open "/tmp/tmp-file" :direction :output
                           :if-does-not-exist :create :if-exists :supersede))
      
      signals an error because delete-file is unlinking the file twice,
      because CLOSE is called with the option :ABORT T.
      
      Don't do that, so that any reversion of the file isn't done, and we
      file is deleted.
      70cf5703
    • rtoy's avatar
      From Helmut Eller: · 0519cdf6
      rtoy authored
      parse-compiled-debug-function-lambda-list fails for
      
        (di::debug-function-lambda-list
          (di::function-debug-function
            #'pcl::fix-early-generic-functions))
      
      because it tries to nconc the supplied-p var to a deleted keyword arg.
      0519cdf6
    • rtoy's avatar
      If it's already a logical pathname host, don't need to check if · 83cbf125
      rtoy authored
      it's a search-list, because it can't be, obviously.
      83cbf125
  10. Mar 31, 2004
    • emarsden's avatar
      · ef5d5943
      emarsden authored
       - restarts when a package lock is triggered by DEFSTRUCT redefinition:
         disable the package-definition-lock instead of the package-lock (from
         Helmut Eller)
      ef5d5943
  11. Mar 26, 2004
    • emarsden's avatar
      · 10b760ea
      emarsden authored
       - add a SIMPLE-STREAM-ERROR class, and use it when signaling errors from
         fd-streams DO-OUTPUT (noted by Matthew Danish)
      
       - fix bug in fd-stream error handling (patch from Ole Rohne)
      10b760ea
  12. Mar 24, 2004
    • emarsden's avatar
      · e2daaabd
      emarsden authored
       - add ignore declaration
       - fix endpwent alien routine for Solaris
      e2daaabd
  13. Mar 23, 2004
    • emarsden's avatar
      · 335ca24f
      emarsden authored
       - various package-related cleanups. PROFILE and CLX packages use
         COMMON-LISP instead of LISP.
      335ca24f
  14. Jan 20, 2004
    • toy's avatar
      Some ANSI compliance fixes found by Paul Dietz's tests. · 09dc96ef
      toy authored
      o PEEK-CHAR wasn't signaling end-of-file when recursive-p was true.
        o GENERALIZED-PEEKING-MECHANISM needs to handle EOF-DETECTED-FORM
          when the peek-type is NIL.
        o Make PEEK-CHAR with peek-type NIL handle RECURSIVE-P.
      
      o WRITE-LINE didn't like an explicit :END NIL.
      
      o READ-SEQUENCE didn't like reading things into a bit-vector from a
        "good" stream element type.  If the sequence is a bit-vector, use
        the general read-into-vector to read the data.
      
      o READ-SEQUENCE wasn't returning the right value when reading into
        simple-strings with a non-zero :START value.
      09dc96ef
  15. Jan 19, 2004
  16. Jan 18, 2004
  17. Jan 16, 2004
  18. Jan 09, 2004
  19. Dec 01, 2003
  20. Nov 25, 2003
  21. Nov 24, 2003
  22. Nov 21, 2003
  23. 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
  24. 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
  25. Nov 05, 2003
  26. Nov 03, 2003
    • gerd's avatar
      (with-open-file (stream "test.123" :direction :output · b10e98ff
      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.
      b10e98ff
Loading