giải thích với tập tin mở trong các thuật ngữ của người cư trú

Question

Tôi đang học CL và tôi có ít kinh nghiệm về các ngôn ngữ khác. ai đó có thể giải thích cho tôi về giáo dân điều này có nghĩa, đặc biệt là những gì "out" ở đây đại diện, và làm thế nào nó tất cả phù hợp với nhau:

(defun save-db (filename) 
    (with-open-file (out filename 
        :direction :output 
        :if-exists :supersede) 
    (with-standard-io-syntax 
     (print *db* out)))) 

Chủ yếu, các bit Tôi không hiểu là "out", nhưng một giải thích về toàn bộ điều sẽ tốt đẹp.

Cảm ơn

Answer 1

là biến luồng được liên kết với tệp đang mở. with-open-file đảm bảo rằng tệp được mở trong phạm vi và đóng ngoài phạm vi, bất kể bạn thoát ra sao.

Answer 2

Như một sự bổ sung để ddyer, bạn cũng có thể sử dụng MACROEXPAND hoặc MACROEXPAND-1 để xem những gì WITH-OPEN-FILE làm:

(macroexpand '(with-open-file (out filename 
           :direction :output 
           :if-exists :supersede) 
       (with-standard-io-syntax 
       (print *db* out)))) 

cho chúng ta biết

(LET ((OUT (OPEN FILENAME :DIRECTION :OUTPUT :IF-EXISTS :SUPERSEDE)) (#:G748 T)) 
    (UNWIND-PROTECT 
     (MULTIPLE-VALUE-PROG1 (PROGN (WITH-STANDARD-IO-SYNTAX (PRINT *DB* OUT))) 
     (SETQ #:G748 NIL)) 
    (WHEN OUT (CLOSE OUT :ABORT #:G748)))) 

Chúng ta có thể thấy rằng chúng ta mở tập tin gọi là filename và chỉ định luồng tệp mở thành out và thực hiện điều gì đó. Nếu có điều gì đó xấu xảy ra, UNWIND-PROTECT sẽ CLOSE luồng, nếu không phải là nil.

Biến số #:G748 là biểu tượng số GENSYM (vì vậy đây là biểu tượng mới, không có người dùng). Nếu không có gì sai khi viết tệp, chúng tôi đặt #:G748 thành nil.

Vì vậy, khi chúng ta CLOSE suối, nếu có điều gì đó đã đi sai #:G748 sẽ T, vì vậy CLOSE sẽ cố gắng để làm sạch bất kỳ tác dụng phụ là đã tạo ra suối.