A file consisting solely of these lines:
;-*- Mode: Common-lisp; Package: ytools; Readtable: ytools; -*-
(in-package :ytools)
(defstruct (Pseudo-pathname (:predicate is-Pseudo-pathname))
control
opvec ;; a File-op-vector
)
(defmethod make-load-form ((pspn Pseudo-pathname) &optional env)
(declare (ignore env))
`(make-Pseudo-pathname :control ',(Pseudo-pathname-control pspn)
:opvec false))
---------------------------------------------
generates the following error message when compiled in CMUCL 18e:
Error in KERNEL:%COERCE-TO-FUNCTION: the function PSEUDO-PATHNAME-CONTROL is u\
ndefined.
(More precise version information, as printed when CMUCL starts up:
CMU Common Lisp 18e, running on scorpion.zoo.cs.yale.edu
With core: /usr/lib/cmucl/lib/lisp.core
Dumped on: Thu, 2003-04-03 08:47:12-05:00 on orion)
I get no such error message under Allegro or Lispworks.
I can probably work around this, but I thought I would bring it to
your attention.
--
-- Drew McDermott
Yale Computer Science Department
