- (defmacro convert-external-name (name)
- "Add an underscore to NAME if necessary for the ABI."
- #+macosx `(concatenate 'string "_" ,name)
- #-macosx name)
+#+(or allegro openmcl)
+(defun convert-external-name (name)
+ "Add an underscore to NAME if necessary for the ABI."
+ #+(or macosx darwinppc-target) (concatenate 'string "_" name)
+ #-(or macosx darwinppc-target) name)