>>>>> "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