Raymond Toy | 1 Feb 18:05 2005
Picon

Re: Feb snapshot tagging on Feb 1.

>>>>> "Raymond" == Raymond Toy <raymond.toy <at> ericsson.com> writes:

    Raymond> Another month, another tag.  The February snapshot will be tagged on
    Raymond> next Tuesday, Feb 1, around noon EST.

Tagged as snapshot-2005-02.  Builds will be uploaded soon.

Ray

Fred Gilham | 2 Feb 04:59 2005

Re: Feb snapshot tagging on Feb 1.


FreeBSD binaries have been uploaded.

--

-- 
Fred Gilham                                   gilham <at> csl.sri.com
Jordan Hubbard: We have a crash bug.  It needs to be fixed. We DO NOT
need to know how to print 3000 spaces in 11 different languages! :-)
Daniel Sobral: I concur. But if anyone wants to do it with loader,
: 3kbl 3000 0 do bl emit loop ; 3kbl will do the trick.

Richard Welty | 2 Feb 06:05 2005
Picon

mirror back in operation


the cmucl mirror at ftp.averillpark.net has been restored to operation,
and should be up to date.

it went out shortly before christmas due to a major server hardware
failure and i've been gradually picking up the pieces and restoring
config files since then.

richard
--

-- 
Richard Welty                                         rwelty <at> averillpark.net
Averill Park Networking                                         518-573-7592
    Java, PHP, PostgreSQL, Unix, Linux, IP Network Engineering, Security

rif | 2 Feb 21:13 2005
Picon

getting time output


How can get the output from time "programmatically", in a way I can
manipulate?  I can see that time is sending its output to
*trace-output*, but I'm not sure how I can capture this, or send it to
a different stream, or what.

Any suggestions?

rif

Martin ``rydis'' Rydstr|m | 2 Feb 21:36 2005
Picon
Picon
Picon

Re: getting time output


On Wed, Feb 02, 2005 at 03:13:28PM -0500, rif wrote:
> 
> How can get the output from time "programmatically", in a way I can
> manipulate?  I can see that time is sending its output to
> *trace-output*, but I'm not sure how I can capture this, or send it to
> a different stream, or what.
> 
> Any suggestions?
> 
> rif
> 

(with-output-to-string (zot) 
  (let ((*trace-output* zot))
    (time (loop repeat 1000)))
  zot)

'mr

--

-- 
[Emacs] is written in Lisp, which is the only computer language that is
beautiful.  -- Neal Stephenson, _In the Beginning was the Command Line_

Raymond Toy | 2 Feb 21:52 2005
Picon

Re: getting time output


>>>>> "rif" == rif  <rif <at> MIT.EDU> writes:

    rif> How can get the output from time "programmatically", in a way I can
    rif> manipulate?  I can see that time is sending its output to
    rif> *trace-output*, but I'm not sure how I can capture this, or send it to
    rif> a different stream, or what.

Martin has given a way to have the output go somewhere else.  Is that
what you want or do you want the info in a different way?  TIME
basically calls %TIME to compute the stuff, and it should be simple to
have %TIME return the values in addition to printing them out.

Ray

Raymond Toy | 2 Feb 22:18 2005
Picon

Re: alien:make-alien


>>>>> "Progga" == Progga  <abulfazl <at> juniv.edu> writes:

    Progga> On Thu, Jan 13, 2005 at 09:41:30AM -0500, Raymond Toy wrote:
    >> 
    >> First, indent better:

    Progga>  Okay :-)  I am still undecided whether to use 2 or 8 spaces for the TAB
    Progga> though.

It's not the number of spaces.  It's lining things up correctly.

    Progga>  I have attached the lisp code.  Quite small.  Besides the lisp file,
    Progga> there's
    Progga> another C file which has the body of extract_image and save_image.  That
    Progga> C file
    Progga> in turn depends on libjpeg.

I tried your code I I get an error as well.  Don't know why, but it
works much better to use

    (defun foo (name)
      (with-alien ((filename c-string)
                   (width int)
                   (height int)
                   (image_array (* (* unsigned-char))))

        (setf filename name)

        (extract-image filename
(Continue reading)

rif | 3 Feb 00:44 2005
Picon

Re: getting time output


Thanks everyone.
Any of these approaches solve my problem!

Cheers,

rif

Nicolas Neuss | 4 Feb 22:29 2005
Picon

MOP question: Generating classes


Hello,

I have run into the following problem:

(typep #() (make-instance defclass X () ()))

works and returns NIL.  However,

(typep #() (make-instance 'standard-class
				   :name 'X
				   :direct-superclasses ()
				   :direct-slots ()))

yields an error (bad thing to be type specifier).  Is this a bug or am I
doing something wrong here?  (I want to create programmatic classes as shown
in AMOP.)

Thank you for any help,

Nicolas.

Progga | 5 Feb 14:14 2005

Re: alien:make-alien


On Wed, Feb 02, 2005 at 04:18:46PM -0500, Raymond Toy wrote:
> 
> I tried your code I I get an error as well.  Don't know why, but it
> works much better to use
> 
>     (defun foo (name)
>       (with-alien ((filename c-string)
>                    (width int)
>                    (height int)
>                    (image_array (* (* unsigned-char))))
> 
>         (setf filename name)
> 
>         (extract-image filename
>                        (addr width)
>                        (addr height)
>                        (addr image_array))
> 
>         (setf filename "del.jpg")
> 
>         (save-image filename width height image_array)))
> 
> and compile the file and run (foo "image").  At least when I do this,
> I get a black-and-white version of the original image.

 Y, putting with-alien inside a function gives no trouble.  But to get a b&w
version of any image, you must have uncommented the following lines:

;; If the pixel value is < 155, make it 0 i.e. black.
(Continue reading)


Gmane