[slime-devel] Problems with CLISP asserts

When running the CVS version of CLISP I get a failure during the asserts in slink.lisp.

The problem is that:

(assert (test-print-arglist '(&key (function #'+)) "(&key (function #'+))"))

fails because:

(print-arglist-to-string '(&key (function #'+)))

Returns:

"(&key (function #'|COMMON-LISP|::|+|))"

rather than:

"(&key (function #'+))"

I would think the CLISP response was technically correct, although overly verbose.

This seems to be a side effect of using WITH-STANDARD-IO-SYNTAX, and PPRINT.

(pprint '#'+) => #'+ (with-standard-io-syntax (pprint '#'+)) => #'|COMMON-LISP|::|+| (with-standard-io-syntax (princ '#'+)) => #'+