(defun datname ()
(labels 
      ((read-file-line-wise (file-stream so-far)
         (let ((next-line (read-line file-stream nil nil)))
(cd "/home/designarchiv/NORMTEILE")
(load_package next-line)
(setq namealt  (OLI::SD-INQ-OBJ-BASENAME (OLI::SD-INQ-CURR-PART)))
(setq namealt1 (concatenate 'string "\"/" namealt "\""))
(setq nameneu (concatenate 'string "\"" next-line "\""))
:ok-action
'(sd-call-cmds (change_name_pa :part_asmb namealt1 :name nameneu))
             (read-file-line-wise file-stream `(,next-line . ,so-far))
)))
    (with-open-file (p "/home/designarchiv/NORMTEILE/foo")
      (read-file-line-wise p nil))))