Commit e19d2e37 authored by Marco Antoniotti's avatar Marco Antoniotti 💬
Browse files

Fixed declaration.

parent 4d735c33

defsystem.lisp

+4 −2
Changes for defsystem.lisp: 4 added lines, 2 removed lines.
Original line number Diff line number Diff line
@@ -5064,7 +5064,8 @@ CP can be a PATHNAME, a STRING or a FILE-STREAM." 
  

  ;; Auxiliary function for finalize-component-pathnames.



  (declare (ignore parent))

  (declare (ignore parent)

           (type keyword pathname-type))



  ;; These component types have absolute pathnames.

  (assert (member (component-type component)
@@ -5182,7 +5183,8 @@ CP can be a PATHNAME, a STRING or a FILE-STREAM." 
                                        (cp (component-pathname component

                                                                pathname-type)))



  (declare (ignore parent))

  (declare (ignore parent)

           (type keyword pathname-type))



  (assert (eq (component-type component) :private-file))