लेमन शर्तों में खुली फ़ाइल स्पष्टीकरण

Question

मैं सीएल सीख रहा हूं, और मेरे पास अन्य भाषाओं में न्यूनतम अनुभव है। किसी आम आदमी के संदर्भ में मेरे लिए समझा सकते हैं क्या मतलब है इस, विशेष रूप से क्या "बाहर" यहाँ का प्रतिनिधित्व करता है, और यह सब कैसे फिट बैठता है:

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

ज्यादातर बिट मुझे समझ नहीं आता "बाहर" है, लेकिन एक पूरी बात का स्पष्टीकरण अच्छा होगा।

धन्यवाद

Answer 1

बाहर स्ट्रीम फ़ाइल खुली फ़ाइल से जुड़ा हुआ है। ओपन-फाइल गारंटी देता है कि फ़ाइल दायरे के अंदर खुली है, और दायरे के बाहर बंद है, भले ही आप कैसे बाहर निकलें।

Answer 2

एक अतिरिक्त के रूप में ddyer लिए, आप भी MACROEXPAND या MACROEXPAND-1 उपयोग कर सकते हैं देखने के लिए क्या WITH-OPEN-FILE करता है:

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

हमें

(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)))) 

बताता हम देख सकते हैं कि हम बुलाया फ़ाइल को खोलने filename और उस खुली फ़ाइल स्ट्रीम को out पर असाइन करें, और कुछ करें। कुछ बुरा होना चाहिए, UNWIND-PROTECTCLOSE स्ट्रीम होगा, यह गैर-nil होना चाहिए।

#:G748 परिवर्तनीय GENSYM एड प्रतीक है (इसलिए यह एक ताजा, अनियंत्रित, प्रतीक है)। अगर फ़ाइल को गलत लिखने में कुछ भी गलत नहीं होता है, तो हम #:G748 से nil पर सेट करते हैं।

प्रकार, जब हम धारा CLOSE, अगर कुछ गलत हो गया #:G748T होंगे, इसलिए CLOSE धारा का निर्माण किया होने का कोई साइड इफेक्ट को साफ करने का प्रयास करेंगे।