Topic: AutoLoad/Demandload for Lisp Files

[Lee Mac]

These issues are to be (sort of) expected when modifying old code and not testing all branches fully.
Thanks for having a look.

No worries, just giving you the heads up 

[Kerry]

Code  and Attachment in first post Revised 2010.09.30 [Build:2010.09.29-2]

Modified as noted in threads

Main stub evaluator is now :

Code: [Select]

            (eval
              (list
                'defun
                CommandName
                (append Args '(/ qfn))
                (list  'if (list 'setq 'qfn
                    (list 'kdub:Auto-LispLoad_FindQualifiedFile (read FileName))
                  )
                  (list 'progn
                        '(princ "\nInitializing...\n")
                        (list 'setq CommandName 'nil)
                        (list 'load 'qfn)
                  )
                  ;; stub else
                  (list 'progn
                        (list 'kdub:Auto-LispLoad_NoFile FileName)
                        (list 'setq CommandName 'nil)
                  )
                )
                (list 'if
                      CommandName
                      (list 'eval (cons CommandName Args))
                      ;; stub else
                      (list 'prompt
                            (list 'strcat
                                  "\nError : Unable to evaluate "
                                  (vl-prin1-to-string CommandName)
                                  "\n"
                            )
                      )
                )
              )
            )

which generates a stub similar to my previous  code post.