(eval-when (:compile-toplevel)
(print #-mocl #P"C:\\cygwin\\home\\pjb\\"
#+mocl "/home/pjb/"))
It doesn't suppress reading and evaluating of strings as pathname with #P:
n=bug-sharp-supress-pathname ; echo --- ; mkdir -p /tmp/${n}/src ; mocl --verbose --warn --android /tmp/${n} ${n}.lisp
---
mocl 14.08 Copyright (C) 2013-2014 Wukix, Inc. (https://wukix.com)
[Source Analysis]
/Users/pjb/src/mocl/bug-sharp-supress-pathname.lisp
Error: Malformed pathname.
make: [check-bugs] Error 1 (ignored)
Compilation finished at Sun Mar 1 10:48:07
As almost all the other reported bugs, this is a very bad bug because it prevents providing sources that works nicely in MoCL and in the other implementations!