Re: Symbol's value as variable is void: defun

[Ben Bacarisse <ben.usenet@bsb.me.uk>]

Davin Pearson <davin.pearson@gmail.com> writes:

> ;; With the following defun in effect:
>
> (defun load-file-most-recent (file)
>   ;;(setq file (concat (car load-path) "/" file))
>   (assert (string-match "\\.el$" file))
>   (setq other (substring file 0 (match-beginning 0)))
>   (setq other (concat other ".elc"))
>   (cond
>    ((and (file-exists-p file) (file-exists-p other))
>     (setq date-modified-file (nth 5 (file-attributes file)))
>     (setq date-modified-other (nth 5 (file-attributes other)))
>     (setq file-older-than-other-p
>           (if (>= (nth 0 date-modified-file) (nth 0 date-modified-other))
>               (if (>= (nth 1 date-modified-file) (nth 1 date-modified-other))
>                   (if (>= (nth 2 date-modified-file) (nth 2 date-modified-other))
>                       t
>                     nil)
>                 nil)
>             nil))
>     (if file-older-than-other-p
>         (progn
>           (message "loading file %s" file)
>           (load-file file))
>       (message "loading file %s" other)
>       (load-file other))
>     )
>    ((file-exists-p file)
>     (load-file file)
>     )
>    ((file-exists-p other)
>     (load-file other)
>     )
>    (t
>     (assert (not (file-exists-p file)))
>     (assert (not (file-exists-p other)))
>     (error "Should never happen, file=%s, other=%s" file other))
>    )
>   )
>
> (load-file-most-recent "~/lisp++-projects/c++2lisp++-stage-1-purge-comments.el")
>
> ;; gives the following diagnostic: Symbol's value as variable is void:
> ;; defun. 
>
> Here is the contents of the offending file:
>
> http://davinpearson.com/binaries/c++2lisp++-stage-1-purge-comments.elc

The problem is reported to be in that file and is (as far as I can tell)
unrelated to the code you show above.  You'd have to post the source for
that compiler file to more help.

-- 
Ben.