[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Symbol's value as variable is void: defun
From: |
Davin Pearson |
Subject: |
Symbol's value as variable is void: defun |
Date: |
Thu, 1 Feb 2018 18:54:16 -0800 (PST) |
User-agent: |
G2/1.0 |
;; 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
- Symbol's value as variable is void: defun,
Davin Pearson <=
- Re: Symbol's value as variable is void: defun, Emanuel Berg, 2018/02/01
- Re: Symbol's value as variable is void: defun, Ben Bacarisse, 2018/02/02
- Re: Symbol's value as variable is void: defun, tomas, 2018/02/02
- Re: Symbol's value as variable is void: defun, John Mastro, 2018/02/02
- Re: Symbol's value as variable is void: defun, Davin Pearson, 2018/02/04