Skip to content
Snippets Groups Projects
  1. Apr 07, 2004
  2. Apr 06, 2004
    • rtoy's avatar
      Update notes: · d1b58751
      rtoy authored
      o Source location recording
      o Sparc port only supports Ultrasparc (Sparc V9) class machines.
      d1b58751
    • rtoy's avatar
      Add support for source location recording, from Helmut Eller on · f4f6325e
      rtoy authored
      cmucl-imp:
      
          The patch below adds a somewhat general mechanism to the get the
          "current location".  So every macro that wants to record the
          source location, can insert a call to SOURCE-LOCATION in the
          generated code and safe the result in a appropriate place.
          SOURCE-LOCATION is a compiler-macro and returns a quoted struct
          with the source info.
      
          The patch adds the definition for SOURCE-LOCATION some
          modifications for the defclass, defgeneric and defmethod macros.
          Classes, generic functions and methods have already a "source"
          slot and the result of SOURCE-LOCATION is just stored into that
          slot.  (The source slot contains currently only the *loadpath*,
          which is is not very useful, if the fasl file is in a different
          directory than the source file.)
      f4f6325e
    • rtoy's avatar
      Add WITH-UNBOUNDED-INTERVAL-ON-ERROR macro to catch errors · 7e328579
      rtoy authored
      during interval arithmetic and returns a doubly unbounded INTERVAL.  Use this
      in the INTERVAL-* routines.
      
      This is intended to fix the ansi-test failure misc.89.  The approach is
      rather heavy-handed, and a better solution is desirable.
      7e328579
    • rtoy's avatar
      debug-dump.lisp · 7ef21c40
      rtoy authored
       revision 1.10.1.3
       date: 90/04/13 12:11:22;  author: ram;  state: Exp;  lines added/del: 8/3
       Changed block dumping to notice when the successor is in a different
       environment (due to a TR call).
       ----------------------------
       revision 1.10.1.2
       date: 90/04/08 17:54:38;  author: ram;  state: Exp;  lines added/del: 2/2
       old-cont => old-fp
       ----------------------------
       revision 1.10.1.1
       date: 90/03/27 12:12:06;  author: ram;  state: Exp;  lines added/del: 1/0
       Added support for file comments.
      7ef21c40
    • 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
  3. Apr 05, 2004
  4. Apr 02, 2004
  5. Apr 01, 2004
    • rtoy's avatar
      Lynn Quam on cmucl-imp on 2004-03-30 says · b6353a20
      rtoy authored
      (defun foo (f d)
        (declare (type (simple-array single-float (*)) f)
                 (type (simple-array double-float (*)) d))
        (setf (aref f 0) (aref d 0)))
      
      doesn't produce any warnings and generates completely bogus code.
      
      Don't know what the real answer solution is, but turning off the
      assert-continuation-type for a single-use continuation fixes this,
      which is what 18a used to do.  There are probably other bugs that this
      hides.
      b6353a20
    • 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
  6. 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
  7. Mar 29, 2004
  8. Mar 28, 2004
  9. 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
  10. Mar 24, 2004
    • emarsden's avatar
      · 9496c5fe
      emarsden authored
      Improved error-checking for CLX's (setf gcontext-dashes).  When the argument
      is a number it must be strictly positive; check this in the client before
      sending to server. See the XSetDashes(3x) manual page.
      9496c5fe
    • emarsden's avatar
      · 39828da8
      emarsden authored
       - component names may be non-pretty-printable
      39828da8
    • emarsden's avatar
      · e2daaabd
      emarsden authored
       - add ignore declaration
       - fix endpwent alien routine for Solaris
      e2daaabd
  11. Mar 23, 2004
    • emarsden's avatar
      · 335ca24f
      emarsden authored
       - various package-related cleanups. PROFILE and CLX packages use
         COMMON-LISP instead of LISP.
      335ca24f
  12. Jan 20, 2004
    • toy's avatar
      Update. · 6ae83779
      toy authored
      6ae83779
    • 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
  13. Jan 19, 2004
    • toy's avatar
      o Fix INTERVAL-RANGE-INFO some more. Put back the previous change · 335f876a
      toy authored
        (that we backed out) so (abs (the (double-float 0d0) x)) produces
        the correct result.
      o Add a kludge to INTERVAL-RANGE-INFO to handle the case of an
        interval -0.0 to 0.0 specially.  INTERVAL-RANGE-INFO should return
        NIL instead of '- for this.
      o The fixes to INTERVAL-RANGE-INFO tickle a bug in INTERVAL-SPLIT
        where we weren't correctly splitting the the interval [-0.0, 0d0]
        into 2 intervals correctly.  This was causing the compiler to loop
        forever deriving things.
      
      This is all a bit kludgy.  Dealing with signed-zeroes is a pain.
      335f876a
    • toy's avatar
      PEEK-CHAR should determine whether a character is whitespace from the · 82f47e34
      toy authored
      current readtable.  Use that instead of whitespace-char-p.
      
      (Noted from Paul Dietz's ANSI tests.)
      82f47e34
  14. Jan 18, 2004
  15. Jan 17, 2004
  16. Jan 16, 2004
Loading