>>>>> "jgr" == Juan Jose Garcia-Ripoll <juanjose.garciarip...@googlemail.com> 
>>>>> writes:

  jgr> Sorry, what I meant was the C disassembly. You get it with
  jgr> 
  jgr> (require :cmp)
  jgr> (disassemble '(lambda (...) ..))
  jgr> 
  jgr> This will give us a clue about the quality of the generated code -- I am
  jgr> asking because in my OS X it looks just fine.

,----
| > (disassemble '(lambda (p1 p2) (declare (optimize (safety 0)) (type (member 
#\U00FE) p2)) (equalp p1 p2)))
| 
| ;;; Compiling (DEFUN C::GAZONK ...).
| ;;; Emitting code for C::GAZONK.
| /*    function definition for GAZONK                                */
| /*    optimize speed 3, debug 0, space 0, safety 0                  */
| static cl_object L1c__gazonk(cl_object V1, cl_object V2)
| { VT2 VLEX2 CLSR2 STCK2
|       const cl_env_ptr cl_env_copy = ecl_process_env();
|       cl_object value0;
|       char V3;
|       V3= CHAR_CODE(V2);
| TTL:
|       value0=ecl_make_bool(ecl_equalp(V1,CODE_CHAR(V3))); 
cl_env_copy->nvalues=1;
|       return value0;
| }
| NIL
`----

  gcc (Debian 4.6.1-15) 4.6.1 on Linux/AMD64.
  
-- 
Eric Marsden


------------------------------------------------------------------------------
RSA(R) Conference 2012
Save $700 by Nov 18
Register now
http://p.sf.net/sfu/rsa-sfdev2dev1
_______________________________________________
Ecls-list mailing list
Ecls-list@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/ecls-list

Reply via email to