Skip to content
Snippets Groups Projects
  1. Sep 09, 2005
  2. Aug 31, 2005
  3. Aug 30, 2005
    • rtoy's avatar
      Fix for bug in alien enum types reported by Nicolas Neuss, cmucl-imp, · 5d5d2c79
      rtoy authored
      2004/11/09.  An example illustrating the bug is:
      
          (use-package "ALIEN")
          (use-package "C-CALL")
      
          (def-alien-type yes_no_t (enum yes_no_t :NO :YES))
          (def-alien-type nil
      	(struct foo
      		(arg1 yes_no_t)
      		(arg2 yes_no_t)))
      
          (def-alien-routine "set_default_options" void
            (options (* (struct foo))))
      
      Modified alien-type-translator for enum so that if the enum type is
      known and it's the same type as before we skip the call to (setf
      auxiliary-alien-type).  This fixes the problem.
      5d5d2c79
  4. Aug 25, 2005
    • rtoy's avatar
      o Fix a bug in %unary-ftruncate/single-float and · 8e58835f
      rtoy authored
        %unary-ftruncate/double-float where the test for infinity and NaN
        was wrong.
      o When given NaN, these functions should return a quiet
        (non-signaling) NaN instead of returning the signaling NaN.  This
        fixes the FRUNCATE/FFLOOR/FCEILING tests in ieeefp-tests.
      8e58835f
    • rtoy's avatar
      ASIN and ACOS were getting errors when given NaN's. Check for that · 430c366a
      rtoy authored
      case and dispatch to the real-valued C functions in that case.  This
      fixes some errors in the asin and acos tests from ieeefp-tests (at
      common-lisp.net).
      430c366a
  5. Aug 22, 2005
  6. Aug 17, 2005
    • rtoy's avatar
      Apply patch from Matthias Koeppe adding annotation support to pretty · 43025687
      rtoy authored
      streams.  (See mail to cmucl-imp on 2005-07-25 through 2005-08-03.)
      This basically allows arbitrary annotations to be added to pretty
      streams so that the annotations are "printed" at the appropriate times
      when the pretty stream is printed.
      
      This allows better presentation-like features in Slime and McCLIM, and
      is modeled on Allegro's schedule-annotation.
      
      No bootstrap file, but when load-world is run, answer 0 (use-current)
      to keep these changes to the pretty-stream structure.
      43025687
  7. Aug 02, 2005
  8. Aug 01, 2005
    • rtoy's avatar
      o CLHS 22.3.3.2 (~E) says prin1 omits the plus sign of the exponent if · b70016bc
      rtoy authored
        it is non-negative.  Adjust PRINT-FLOAT-EXPONENT accordingly.
      o OUTPUT-FLOAT-AUX prints out 1d23 as "1.0d23".  This differs from how
        FORMAT ~E prints out that number.  Adjust OUTPUT-FLOAT-AUX to match
        what ~E does.  (Are there other cases that we're missing?)
      b70016bc
  9. Jul 13, 2005
  10. Jul 12, 2005
  11. Jul 07, 2005
  12. Jul 05, 2005
  13. Jul 01, 2005
  14. Jun 30, 2005
  15. Jun 23, 2005
  16. Jun 20, 2005
  17. Jun 19, 2005
  18. Jun 15, 2005
  19. Jun 14, 2005
    • rtoy's avatar
      Some fixes for floating-point printing bugs reported by Bruno Haible, · 1031c478
      rtoy authored
      cmucl-imp, on or around 2005/06/13.
      
      Some useful tests:
      
      (format nil "~9,3,2,0,'%G" 0.0314159)
      Expected: "0.314e-01"
      
      
      (format nil "~9,3,2,-2,'%@e" 3.14159)
      Expected: "+.003E+03"
      
      
      (format nil "~6,2,1,'*F" 3.14159)
      Expected: " 31.42"
      
      (format nil "~9,0,6f" 3.14159)
      Expected: " 3141590."
      
      (let (x)
       (dotimes (k 13 x)
        (setq x (cons (format nil "~%Scale factor ~2D: |~13,6,2,VE|"
                (- k 5) (- k 5) 3.14159) x))))
      
      ("
      Scale factor  7: | 3141590.e-06|"
       "
      Scale factor  6: | 314159.0e-05|"
       "
      Scale factor  5: | 31415.90e-04|"
       "
      Scale factor  4: | 3141.590e-03|"
       "
      Scale factor  3: | 314.1590e-02|"
       "
      Scale factor  2: | 31.41590e-01|"
       "
      Scale factor  1: | 3.141590e+00|"
       "
      Scale factor  0: | 0.314159e+01|"
       "
      Scale factor -1: | 0.031416e+02|"
       "
      Scale factor -2: | 0.003142e+03|"
       "
      Scale factor -3: | 0.000314e+04|"
       "
      Scale factor -4: | 0.000031e+05|"
       "
      Scale factor -5: | 0.000003e+06|")
      
      
      code/format.lisp:
      o If the scale factor (k) is negative, the min number of digits to
        print is 1, not (- 1 k) because that prints too many if the field is
        too short.  Setting fmin to fdig is ok if k >= 0.  (See scale factor
        test above.)
      o If flonum-to-string returns with a trailing decimal point, we don't
        need to decrement spaceleft because that deletes a white-space
        character.  (See first scale factor 7 test above.)
      
      code/print.lisp:
      o We need to adjust the number of digits to be printed to include the
        scale factor.  See tests above.
      1031c478
  20. Jun 13, 2005
    • rtoy's avatar
      Save xref information to fasls. · 624c3dc2
      rtoy authored
      This is done by faking it.  The file being compiled is compiled as
      usual, but we append fake forms to the file as if they came from the
      file.  These fake forms insert the necessary information into the xref
      databases when the fasl is loaded.
      
      To support this feature, we also updated COMPILE-FILE to recognize the
      :xref keyword arg.  Set this to non-NIL to enable computing and saving
      xref information.
      
      code/exports.lisp:
      o Update XREF exports
      
      compiler/fndb.lisp:
      o Update with new definition of COMPILE-FILE.
      
      compiler/main.lisp:
      o Append fake forms to the file being compiled to save xref
        information to the fasl.  This clears out any xref info we might
        have for the file, and inserts the necessary xref information into
        the database.
      o Add :XREF keyword arg to COMPILE-FILE.  Default value of :XREF is
        C::*RECORD-XREF-INFO*.
      
      compiler/xref.lisp:
      o Add function to invalidate xref info for a given namestring, so we
        can reset the info when a fasl with xref info is loaded.
      o Add a function to find all xref information for a given pathname.
        Used for saving xref info to a fasl.
      624c3dc2
  21. Jun 01, 2005
  22. May 26, 2005
  23. May 23, 2005
  24. May 19, 2005
  25. May 17, 2005
  26. May 12, 2005
  27. May 11, 2005
    • rtoy's avatar
      Supply a pathname for simple-file-error in make-pathname when we have · 73409eb1
      rtoy authored
      :absolute or :wild-inferiors followed by :up or :back.
      
      Not exactly sure what pathname to use here since we don't accept these
      pathnames.  So we use the given pathname with the :up/:back deleted.
      And the format strings gives more info about what happened.
      
      Fixes ansi-test MAKE-PATHNAME-ERROR-RELATIVE-WILD-INFERIORS-UP and
      friends.
      73409eb1
    • rtoy's avatar
      o Make VALID-FUNCTION-NAME-P the function name, even if it's not a · c213d403
      rtoy authored
        valid function name.
      o Make the setf function-name-syntax try return the function name even
        if it's not a valid setf function name.
      o Use the above changes to fill out more completely and correctly the
        simple-type-error in FDEFINITION-OBJECT, when the function name is
        not valid.
      
      This fixes ansi-tests for fboundp and friends where the datum was a
      type of expected-type or where the datum had the wrong name.
      c213d403
  28. May 10, 2005
  29. May 09, 2005
Loading