;;; -*- Mode:LISP; Package:COMPILER; Readtable:ZL; Base:10 -*-

;;;Foreign symbols defined for K target computer:

(def-foreign-symbols :art-q
  (:lambda 'zl:art-q)
  #+falcon-system-loaded
  (:k #+lambda 'k-array:art-q #+falcon array:art-q))

(def-foreign-symbols :art-string
  (:lambda 'zl:art-string)
  #+falcon-system-loaded
  (:k #+lambda 'k-array:art-string #+falcon array:art-string))