Hi, system:foreign-symbol-address doesn't seem to work for me in compiled functions, while it's fine in interpreted code.
| CMU Common Lisp 18e, running on interim.henrik-motakef.de | With core: /usr/local/lib/cmucl/lib/lisp.core | Dumped on: Thu, 2003-04-03 20:07:59+02:00 on cvs2.cons.org | See <http://www.cons.org/cmucl/> for support information. | Loaded subsystems: | Python 1.1, target Intel x86 | CLOS 18e (based on PCL September 16 92 PCL (f)) | Gray Streams Protocol Support | * | * (defun my-symbol-address (symbol-name) | (sys:foreign-symbol-address symbol-name)) | MY-SYMBOL-ADDRESS | * (my-symbol-address "strerror") | #.(SYSTEM:INT-SAP #xB0000558) | * (compile 'my-symbol-address) | ; Compiling LAMBDA (SYMBOL-NAME): | ; Compiling Top-Level Form: | | MY-SYMBOL-ADDRESS | NIL | NIL | * (my-symbol-address "strerror") | | Error in KERNEL::UNDEFINED-SYMBOL-ERROR-HANDLER: | the function SYSTEM:FOREIGN-SYMBOL-CODE-ADDRESS is undefined. | | Restarts: | 0: [ABORT] Return to Top-Level. | | Debug (type H for help) | | (KERNEL::UNDEFINED-SYMBOL-ERROR-HANDLER "<error finding name>" | #.(SYSTEM:INT-SAP #x47FFFE9C) | #<Alien (* #) at #x47FFFCF4> | (14)) | Source: Error finding source: | Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM: Source file no longer exists: | target:code/interr.lisp. This is a vanilla 18e, on FreeBSD 5.1 beta, from the ports collection. :linkage-table is in *features*, if it matters. Any ideas? tia Henrik
