[Gcl-devel] Re: random palaver

[Camm Maguire]

Greetings, and thanks!  Should be cleared now.

Hope to have some progress soon on the faster mv calls ---

Take care,

Robert Boyer <address@hidden> writes:

> > (defun buggy () (multiple-value-prog1 (values 3 4) 5))
> 
> Cool compiler bug report!
> 
> > (compile (defun weak (name) (setf (get name 'abc) nil)))
> 
> Another cool example.  Consider:
> 
> > (macroexpand '(setf (get name 'abc) nil))
> (SYSTEM:SPUTPROP NAME 'ABC NIL)
> 
> > (symbol-plist 'si::sputprop)
> 
> (COMPILER::INLINE-ALWAYS (((T T T) T 2 "sputprop(#0,#1,#2)")))
> 
> Hmmm.  May I speculate that si::sputprop is one of the many
> primitive GCL functions that Camm was talking about that
> needs to have its return type specified.
> 
> Bob
> 
> Cf. 
> 
> > (symbol-plist 'get)
> 
> (COMPILER::INLINE-ALWAYS
>     (((T T) T 0 "get(#0,#1,Cnil)") ((T T T) T 0 "get(#0,#1,#2)"))
>     COMPILER::RETURN-TYPE T COMPILER::ARG-TYPES (T T *) COMPILER::LFUN
>     "Lget" COMPILER::C2 COMPILER::C2GET COMPILER::C1 COMPILER::C1GET
>     SYSTEM::SETF-DOCUMENTATION NIL SYSTEM::SETF-UPDATE-FN
>     SYSTEM::PUT-AUX)
> 
> 
> 

-- 
Camm Maguire                                            address@hidden
==========================================================================
"The earth is but one country, and mankind its citizens."  --  Baha'u'llah