Copy a string: Difference between revisions

Content added Content deleted

Inline

@@ Line 951: / Line 951: @@
 =={{header|Emacs Lisp}}==
-<lang Lisp>
-(setq str1 "hi")
+<lang Lisp>(let* ((str1 "hi")
-(setq str2 str1)
+       (str1-ref str1)
+       (str2 (copy-sequence str1)))
-(eq str1 str2)</lang>
+  (eq str1 str1-ref) ;=> t
+  (eq str1 str2) ;=> nil
+  (equal str1 str1-ref) ;=> t
+  (equal str1 str2)) ;=> t
+</lang>
 =={{header|Erlang}}==