cant batch load fas though code dose work for lsp

[Anonymous]

i have the following code which works wel for lisp but causes a fatal error for fas, which is beyond me cause I use  lisp to load single fas files all the time.

(defun load-lsp ()
  (foreach file (vl-directory-files "C://ICT//AutoCAD_Architecture_suite_2012//FAS//BLOCKS//" "*.FAS" 1)
           (load (strcat "C:/ICT/AutoCAD_Architecture_suite_2012/FAS/BLOCKS/" file))
           )
  )

(load-lsp)

 thing though it needs to be fas not lisp

[hmsilva]

---

@Anonymous wrote:

i have the following code which works wel for lisp but causes a fatal error for fas, which is beyond me cause I use  lisp to load single fas files all the time.

(defun load-lsp ()
  (foreach file (vl-directory-files "C://ICT//AutoCAD_Architecture_suite_2012//FAS//BLOCKS//" "*.FAS" 1)
           (load (strcat "C:/ICT/AutoCAD_Architecture_suite_2012/FAS/BLOCKS/" file))
           )
  )

(load-lsp)

 thing though it needs to be fas not lisp

---

It should work as expected...

Test each .fas separately to see if it gives an error.

Henrique