From cmucl-devel at common-lisp.net  Wed Jan 17 17:17:51 2007
From: cmucl-devel at common-lisp.net (cmucl)
Date: Wed, 17 Jan 2007 17:17:51 -0000
Subject: [cmucl-ticket] #8: 2-arg log function can't compute some logs
Message-ID: <076.bf29f8b7a382e01c53635d3d0895dfdc@common-lisp.net>

#8: 2-arg log function can't compute some logs
------------------------------------+---------------------------------------
 Reporter:  rtoy                    |       Owner:  somebody
     Type:  defect                  |      Status:  new     
 Priority:  minor                   |   Milestone:          
Component:  Core                    |     Version:  19c     
 Keywords:  log, special functions  |  
------------------------------------+---------------------------------------
 Consider the following snip of code.  CMUCL should really be able to
 compute all of these.  CMUCL fails mostly because it cannot convert some
 bignum to a double-float.

 {{{
 (defun test-log ()
   (dolist (base (list nil 2 2.0 2d0
                       (ash 1 99) (ash 1 3000)
                       8/7 (/ (ash 1 3000) 7)))
     (dolist (number (list 100 100.0 100d0
                           (ash 1 100) (ash 1 3500)
                           50/7 (/ (ash 1 3500) 7)))
       (multiple-value-bind (result cond)
           (ignore-errors (if base
                              (log number base)
                              (log number)))
         (unless result
           (format t "(log ~A ~A) ->~%  ~S~%" number base cond))))))
 }}}

-- 
Ticket URL: <http://trac.common-lisp.net/cmucl/ticket/8>
cmucl <http://common-lisp.net/project/cmucl>
cmucl

From cmucl-devel at common-lisp.net  Fri Jan 19 19:49:21 2007
From: cmucl-devel at common-lisp.net (cmucl)
Date: Fri, 19 Jan 2007 19:49:21 -0000
Subject: [cmucl-ticket] Re: #8: 2-arg log function can't compute some logs
In-Reply-To: <076.bf29f8b7a382e01c53635d3d0895dfdc@common-lisp.net>
References: <076.bf29f8b7a382e01c53635d3d0895dfdc@common-lisp.net>
Message-ID: <085.2b755b0ae28d891f0e11acce042cbe2e@common-lisp.net>

#8: 2-arg log function can't compute some logs
---------------------+------------------------------------------------------
  Reporter:  rtoy    |       Owner:  somebody              
      Type:  defect  |      Status:  closed                
  Priority:  minor   |   Milestone:                        
 Component:  Core    |     Version:  19c                   
Resolution:  fixed   |    Keywords:  log, special functions
---------------------+------------------------------------------------------
Changes (by rtoy):

  * resolution:  => fixed
  * status:  new => closed

Comment:

 Fixed.  Should handle double-double-float's too.

-- 
Ticket URL: <http://trac.common-lisp.net/cmucl/ticket/8>
cmucl <http://common-lisp.net/project/cmucl>
cmucl