home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / il60link.asc < prev    next >
Text File  |  1996-05-29  |  1KB  |  27 lines
  1. <"ActiveLink",
  2.     Lisp = "(tell *load-object* mid:put-data 'ileaf::saved-data 
  3.     '(:component-group-version 1 :component-group-restoration-string 
  4.     ""#.(alt:reload-dumped-object ~$linkNumber 
  5.         :dump-module :external-link :dump-object-string 
  6.     \""(when (boundp (quote alt:external-link-class))
  7.         (tell-class alt:external-link-class mid:new))\"" :dump-form-string 
  8.     \""(let ((alt::object alt:*load-dumpable-object*))
  9.     (declare (special alt:*load-dumpable-object*))
  10.     (tell alt::object mid:put-dumpable-data (quote :insertion-type)
  11.         (quote :contents))
  12.     (tell alt::object mid:put-dumpable-data (quote :extract-time)
  13.         (quote (:open :print :explicit)))
  14.     (tell alt::object mid:put-dumpable-data (quote :master-p)
  15.         (quote nil))
  16.     (tell alt::object mid:put-dumpable-data (quote :link-type)
  17.         (quote \\\\\""~$linkType\\\\\""))
  18.     (tell alt::object mid:put-dumpable-data (quote :pathname)
  19.         (quote #.(translate-logical-pathname 
  20.         (logical-pathname \\\\\""~$linkPath\\\\\""))))
  21.     (tell alt::object mid:put-dumpable-data (quote :old-alt-checksum)
  22.         (quote :modified))
  23.     (tell alt::object mid:put-dumpable-data (quote :input-file)
  24.         (quote #.(translate-logical-pathname 
  25.         (logical-pathname \\\\\""~$linkPath\\\\\""))))
  26.     )\"":dump-version '(1))"")<#0a>)">
  27.