help-gnu-emacs
[Top][All Lists]
Advanced

[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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]