Custom Query (1030 matches)

Hi,

When the a package is present, say, HUNCHENTOOT, the following works

(defpackage :foo

(:use :cl :hunchentoot))

(in-package :foo)

..

However, as start to use more packages during the course of hacking, I sometimes :USE non-existent package or misspell its name.

(defpackage :foo

(:use :cl :hunchentoot :frob))

(in-package :foo)

..

On Linux, I get the correct behaviour:

The name "FROB" does not designate any package.

[Condition of type SB-KERNEL:SIMPLE-PACKAGE-ERROR]

But on Win32, things get unwieldy: I first get the error, but if I try to correct it by fixing the spelling or loading an ASDF system, all forms refuse to evaluate. For example, after fixing the typo, I get this:

Undefined function :USE called with arguments (:CL

:CL-WHO :POSTMODERN :SIMPLE-DATE :HUNCHENTOOT) .

[Condition of type CCL::UNDEFINED-FUNCTION-CALL]

Even evaluating () returns ==> COMMON-LISP:NIL

The only way I know how to repair things without restarting CCL is to do this:

FOO> (cl-user::in-package :cl-user) #<Package "COMMON-LISP-USER"> CL-USER> (in-package :foo) #<Package "FOO">

Attached is a stack trace.

CL-USER> (lisp-implementation-version) "Version 1.4 (WindowsX8632)"

SLSIA. This crash occurs only with an active selection in the listener, not when the cursor is on a close paren, and not when there is an active selection in an editor window.

I'm doing an experiment in formatting some files that use Devanagari unicode characters. The input file is utf8, and it's my intention to produce a utf8 output file. The following function reads a sexp, and for each correctly prints a Devanagari word to the screen, and apparently writes the same word as garbage to the output file. Can you please tell me the right stream parameters? Thanks.

(defun format-dict ()
  (let ((fi "/Users/kmorgan/documents/yoga/sanskrit/roots/roots.txt")
        (fo "/Users/kmorgan/documents/yoga/sanskrit/roots/dict.txt"))
    (with-open-file (si fi :external-format :utf-8)
      (with-open-file (so fo  :direction :output :if-exists :supersede :external-format :utf-8)
        (let ((*print-miser-width* 120))
          (do ((x (read si nil nil) (read si nil nil))) 
              ((null x))
            (princ (second (second x)) so)
            (princ (second (second x)))
            ;(print-entry so x)
            ))))))