[no subject]

[KWC@MIT-ML]

(COMMENT ****  CHECK-ARG-CONTROL-STRING Undeclared - taken as SPECIAL in function FIND-MINIMUM-PATH)

Find-minimum-path is pretty trivial, as you can see:

(defsysr (find-minimum-path pnode)
  (check-arg pnode (fn (x) (or (null x) (hunkp x))) "a pnode or nil")
  (find-minimum-path1 pnode))

It sure looks like check-arc is doing something wrong ...
(if i'm doing something wrong, then someone should be generating more
useful warning messages.)

- ken