On Fri, Apr 29, 2011 at 07:23:11AM +0200, Alexander Burger wrote: > it also works with method definitions, if you pass the message and the > class: > > (vi 'put> '+Entity)
As an interesting exercise, to see what '*Dbg' actually stores, try this: : (mapc println (get '+Entity '*Dbg)) (760 . "/usr/lib/picolisp/lib/db.l") (clone!> 1090 . "/usr/lib/picolisp/lib/db.l") (clone> 1039 . "/usr/lib/picolisp/lib/db.l") (set!> 1009 . "/usr/lib/picolisp/lib/db.l") (set> 981 . "/usr/lib/picolisp/lib/db.l") (keep!> 970 . "/usr/lib/picolisp/lib/db.l") (keep?> 960 . "/usr/lib/picolisp/lib/db.l") (keep> 949 . "/usr/lib/picolisp/lib/db.l") (keep1> 945 . "/usr/lib/picolisp/lib/db.l") (lose!> 934 . "/usr/lib/picolisp/lib/db.l") (lose> 923 . "/usr/lib/picolisp/lib/db.l") (lose1> 919 . "/usr/lib/picolisp/lib/db.l") (mis> 916 . "/usr/lib/picolisp/lib/db.l") (dec!> 904 . "/usr/lib/picolisp/lib/db.l") (dec> 894 . "/usr/lib/picolisp/lib/db.l") (inc!> 882 . "/usr/lib/picolisp/lib/db.l") (inc> 872 . "/usr/lib/picolisp/lib/db.l") (del!> 861 . "/usr/lib/picolisp/lib/db.l") (del> 852 . "/usr/lib/picolisp/lib/db.l") (put!> 840 . "/usr/lib/picolisp/lib/db.l") (put> 830 . "/usr/lib/picolisp/lib/db.l") (has> 825 . "/usr/lib/picolisp/lib/db.l") (upd> 823 . "/usr/lib/picolisp/lib/db.l") (url> 821 . "/usr/lib/picolisp/lib/db.l") (zap> 816 . "/usr/lib/picolisp/lib/db.l") (T 808 . "/usr/lib/picolisp/lib/db.l") It shows that the class '+Entity' is stored in line 760 of "lib/db.l", and then the locations of all methods of that class. Cheers, - Alex -- UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
